word的查找替换功能能否实现一对一的批量替换修改？

mengyakay

比如：一篇文档中，我想把所有的“张三”改成“张丰”，所有的“陈离”改成“陈高”。。。。
能否一次性把这些改好？不用一次次查找替换？坐等高手。。。。


P.S.本人不懂VBA操作，如果必须得用VBA操作，能否稍微简单介绍下怎么操作？非常非常感谢！

wuxinyun1999

你不要一个一个替换，选择替换全部不就OK乐

wudixin96

1. Set myRange = ActiveDocument.Content
   
2. arr = Array("张三", "陈离") '这里自己添加
   
3. brr = Array("张丰", "陈高") '这里自己添加
   
4. For i = LBound(arr) To UBound(arr)
   
5. myRange.Find.Execute FindText:=arr(i), _
   
6.     ReplaceWith:=brr(i), Replace:=wdReplaceAll
   
7. Next

复制代码

差不多这样吧

dajiahaoxinku12

当然可以使用查找替换功能，勾选  全字匹配

mengyakay

wudixin96 发表于 2013-2-17 11:01
差不多这样吧

（1>
（1>
（1>

mengyakay

wudixin96 发表于 2013-2-17 11:01
差不多这样吧

（1>
（2>
（3>
……
另外请教下，在查找替换的通配符使用中，“>”有表示结尾的含义，如何用通配符实现把以上的右边改成正常括号？（不能把“>”全部替换成“）”，文章中还会有其他地方使用该符号。）

mengyakay

wudixin96 发表于 2013-2-17 11:01
差不多这样吧

这个VBA代码，我怎么使用啊？不会啦。。。。能不能教下。。。

mengyakay

wuxinyun1999 发表于 2013-2-17 11:00
你不要一个一个替换，选择替换全部不就OK乐

不好意思，可能我没表述清楚，我的意思是实现N个类似于“陈三”改成“陈丰”这样的错别字的替换。错别字很多，类似于错别字库的批量替换。。。。三楼的明白了我的意思。

wudixin96

mengyakay 发表于 2013-2-17 14:11
（1>
（2>
（3>

查找：\>
替换：)

wudixin96

mengyakay 发表于 2013-2-17 14:14
这个VBA代码，我怎么使用啊？不会啦。。。。能不能教下。。。

ALT+F11打开VBE，插入－－模块，再插入－－过程，然后把上面的代码复制到 过程 sub ....end sub之间，运行即可。