选择区域替换 和 全文替换

xiang1162090014

请教一下：
有个文档，里面有若干字符，需要进行替换，如：
≌  --> \cong
△ --> \triangle
∠ --> \angle
...
目前我的方法是，选中需要进行替换的区域，
执行下面的宏

1. Selection.Find.ClearFormatting
   
2.     Selection.Find.Replacement.ClearFormatting
   
3.     With Selection.Find
   
4.     .Text = "≌"
   
5.     .Replacement.Text = "\cong "
   
6.     .Forward = True
   
7.     .Wrap = wdFindStop
   
8.     .Format = False
   
9.     .MatchCase = False
   
10.     .MatchWholeWord = False
    
11.     .MatchByte = False
    
12.     .MatchWildcards = False
    
13.     .MatchSoundsLike = False
    
14.     .MatchAllWordForms = False
    
15.     End With
    
16.     Selection.Find.Execute Replace:=wdReplaceAll
    
17.    
    
18.     Selection.Find.ClearFormatting
    
19.     Selection.Find.Replacement.ClearFormatting
    
20.     With Selection.Find
    
21.     .Text = "△"
    
22.     .Replacement.Text = "\triangle "
    
23.     .Forward = True
    
24.     .Wrap = wdFindStop
    
25.     .Format = False
    
26.     .MatchCase = False
    
27.     .MatchWholeWord = False
    
28.     .MatchByte = False
    
29.     .MatchWildcards = False
    
30.     .MatchSoundsLike = False
    
31.     .MatchAllWordForms = False
    
32.     End With
    
33.     Selection.Find.Execute Replace:=wdReplaceAll

复制代码

但是，除了第一个符号以外，其它符号未被选中的区域也执行了替换。

因此想请教一下，是这个宏啥子地方写的有问题吗？

ming0018

因为第一次替换完成时，你的selection的范围变化了。
建议使用range

tcdatongye

可以用正则查询[≌△∠]，查出的内容通过字典得出需替换的内容。dic("△")="\triangle "

daibao88

   二楼正理

xiang1162090014

ming0018 发表于 2019-12-4 18:02
因为第一次替换完成时，你的selection的范围变化了。
建议使用range

多谢指明方向，已搞定。

1. Set my_range = Selection.Range
   
2. With my_range.Find
   
3.     ...
   
4. End with
   
5. my_range.Find.Execute Replace: ...

复制代码

wdpfox

在office2016中测试代码没有问题。

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

xiang1162090014

daibao88 发表于 2019-12-4 21:45
二楼正理

xiang1162090014

tcdatongye 发表于 2019-12-4 19:24
可以用正则查询[≌△∠]，查出的内容通过字典得出需替换的内容。dic("△")="\triangle "

请教，按照这种方法

1. dic{"△": "\triangle ", "≌": "\cong", ...}
   
2. 
   
3. with selection.find
   
4.     .text = "[≌△...]"
   
5.     .Replacement.Text = xxx
   
6.     .MatchWildcards = True

复制代码

Replacement 部分应该怎样写呢？

tcdatongye

假设s=查找到的文本
.Replacement.Text = dic(s)

xiang1162090014

tcdatongye 发表于 2019-12-5 14:56
假设s=查找到的文本
.Replacement.Text = dic(s)

请教，

假设s=查找到的文本

这个怎么写呢？