如何将半角双引号替换成全角双引号？

jmjslkj

换不了，提示找到0处，替换0处

ke3088

413191246se 发表于 2012-5-17 15:35
Sub 替换英文双引号为中文()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.Clear ...

正好用到，谢谢

413191246se

楼上朋友，权威代码在此：

1. Sub 全角字母数字转半角()
   
2.     Dim i As Paragraph, mt, r As Range, n%, m%
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Pattern = "[Ａ-Ｚａ-ｚ０-９“”]"
   
5.         .Global = True
   
6.         .IgnoreCase = False
   
7.         .MultiLine = True
   
8.         For Each i In ActiveDocument.Paragraphs
   
9.             For Each mt In .Execute(i.Range.Text)
   
10.                 m = mt.FirstIndex: n = mt.Length
    
11.                 With ActiveDocument.Range(i.Range.Start + m, i.Range.Start + m + n)
    
12.                     If .Text Like "[“”]" Then .CharacterWidth = wdWidthFullWidth Else .CharacterWidth = wdWidthHalfWidth
    
13.                 End With
    
14.             Next
    
15.         Next
    
16.     End With
    
17. End Sub
    
18. Sub 半角标点转全角()
    
19.     Dim d, x, y, k, t, i%, j%
    
20.     x = Array(".", ",", ";", ":", "!", "?")
    
21.     y = Array("。", "，", "；", "：", "！", "？")
    
22.     Set d = CreateObject("Scripting.Dictionary")
    
23.     For i = 0 To UBound(x)
    
24.         d(x(i)) = y(i)
    
25.     Next
    
26.     k = d.keys: t = d.items
    
27.     With ActiveDocument.Content.Find
    
28.         For j = 0 To d.Count - 1
    
29.             .Execute "([一-﨩^13^11])" & k(j) & "([0-9一-﨩^13^11])", , , 1, , , , , , "\1" & t(j) & "\2", 2
    
30.         Next
    
31.     End With
    
32. End Sub

复制代码

ke3088

413191246se 发表于 2019-10-2 23:51
楼上朋友，权威代码在此：

国庆礼物收到，谢谢