Word-VBA：替换文字

2024年5月6日 167次阅读 来源: 小鸿1983 
'工具-引用
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，则只查找匹配的完整单词，而并非作为一个长单词的一部分的文字。相当于“编辑”菜单“查找和替换”对话框中的“全字匹配”复选框。

 

    原文作者：小鸿1983
    原文地址: https://blog.csdn.net/jyh_jack/article/details/108486885
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞