Excel Vba 替换word中的指定内容的方法解释

对于Microsoft Word 16.0 Object Library引用不成功的，可以看下此内容：

'工具-引用
Microsoft Word 16.0 Object Library (16会因为机器安装的版本不一)
 
WordApp.Selection.Find.ClearFormatting
WordDoc.Range.Find.Execute findtext:="被替换掉啥", ReplaceWith:="替换成啥", MatchWildcards:=True, Forward:=True, Replace:=wdReplaceAll, Wrap:=wdFindContinue
 
 
如果不引用，可以用数字代替
Replace选项
wdReplaceAll    2    替换所有匹配项。    
wdReplaceOne    1    替换遇到的第一个匹配项
wdReplaceNone    0    不替换任何匹配项。    
 
Wrap选项
wdFindAsk    2    搜索完所选内容或者区域后，Microsoft Word 会显示一条消息，询问是否搜索文档的其他部分。
wdFindContinue    1    到达搜索区域的开始或者结尾时，继续执行查找操作。
wdFindStop    0    到达搜索范围的开始或者结尾时，停止执行查找操作。
 
MatchWildcards 为 True，则可以指定通配符及其他高级搜索条件。例如，“*(ing)” 将查找以“ing”结尾的所有单词。详细内容
MatchCase  可选。如果是 True，则查找文本需区分大小写。相当于“编辑”菜单“查找和替换”对话框中的“区分大小写”复选框。
MatchWholeWord  可选。如果为 True，则只查找匹配的完整单词，而并非作为一个长单词的一部分的文字。相当于“编辑”菜单“查找和替换”对话框中的“全字匹配”复选框。
————————————————

原文链接：https://blog.youkuaiyun.com/jyh_jack/article/details/108486885