word 宏 替换 字典

xiang1162090014

请教：有这样一个word文档，
里面有这样一些字符，需要进行替换：
≌ △ ∠ °﹣ ⊥ Rt ×  sin cos ∴ ∵ ≥ ⊙ ∽
原本的方法是，在宏里面进行逐一进行查找替换，共查找替换 n 次。

1. With Selection.Find
   
2.     .Text = "≌"
   
3.     .Replacement.Text = "全等"
   
4.     ...
   
5.     End With
   
6.     Selection.Find.Execute Replace:=wdReplaceAll
   
7. 
   
8. 第二遍查找△替换为“三角”.
   
9. 第三遍查找∠替换为“角”。
   
10. ...

复制代码

但是速度有些慢，word 还有无响应的情况。



有其他老师说，可以使用一个字典来进行替换
于是修改为如下：

1. Sub add_dollars()
   
2.     Dim dic As Object
   
3.     Set dic = CreateObject("Scripting.Dictionary")
   
4.     dic.Add "≌", "全等"
   
5.     dic.Add "△", "三角"
   
6.     dic.Add "∠", "角"
   
7.     dic.Add "°", "度"
   
8.     dic.Add "﹣", "减"
   
9.     dic.Add "⊥", "垂直"
   
10.     dic.Add "Rt", "直角三角形"
    
11.    
    
12.     Selection.Find.ClearFormatting
    
13.     Selection.Find.Replacement.ClearFormatting
    
14.     With Selection.Find
    
15.         .Text = "([≌△∠°﹣⊥])"
    
16.         .Replacement.Text = dic("\1")
    
17.         .Forward = True
    
18.         .Wrap = wdFindAsk
    
19.         .Format = False
    
20.         .MatchCase = False
    
21.         .MatchWholeWord = False
    
22.         .MatchByte = False
    
23.         .MatchWildcards = True
    
24.         .MatchSoundsLike = False
    
25.         .MatchAllWordForms = False
    
26.     End With
    
27. 
    
28.     Selection.Find.Execute Replace:=wdReplaceAll
    
29.    
    
30. End Sub
    
31. 
    

复制代码

但是这样替换出来的结果为空，感觉替换文本处写的不对，
因此想请教一下，
Replacement.Text =
这个位置是不是写错了？


--附文档

tcdatongye

1. Sub add_dollars()
   
2. 
   
3. '≌ △ ∠ °﹣ ⊥ Rt ×  sin cos ∴ ∵ ≥ ⊙ ∽
   
4. 
   
5.     Set dic = CreateObject("Scripting.Dictionary")
   
6.     dic.Add "≌", "全等"
   
7.     dic.Add "△", "三角"
   
8.     dic.Add "∠", "角"
   
9.     dic.Add "°", "度"
   
10.     dic.Add "﹣", "减"
    
11.     dic.Add "⊥", "垂直"
    
12.     dic.Add "Rt", "直角三角形"
    
13.     ActiveDocument.Content.Select
    
14.     With Selection.Find
    
15.         .Wrap = wdFindStop
    
16.         .Forward = True
    
17.         .MatchWildcards = True
    
18.         .Text = "([﹣≌△∠°⊥×∴∵≥⊙∽])"
    
19.         Do While .Execute
    
20.         .Replacement.Text = dic(Selection.Text)
    
21.         .Execute Replace:=wdReplaceOne
    
22.         .Parent.Move
    
23.         Loop
    
24.     End With
    
25. 
    
26.    
    
27. End Sub
    
28. 
    

复制代码

首先：是单字符，像sin之类你需要多几次查找替换才可。word查找没有正则中sin|cos功能

wdpfox

字典的使用，学习了，谢谢分享！！

                                        莫愁前路无知己，天下谁人不识君！只道是：海内存知己，天涯若比邻！  

xiang1162090014

tcdatongye 发表于 2019-12-9 16:41
首先：是单字符，像sin之类你需要多几次查找替换才可。word查找没有正则中sin|cos功能

感谢指明了方向。