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

改个名字好哦难

已于 2023-10-04 17:27:49 修改

阅读量1.5k

点赞数

分类专栏： Excel vba 文章标签： excel word c#

于 2023-10-04 17:24:18 首次发布

Excel vba 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了在使用MicrosoftWord16.0时ObjectLibrary引用失败的问题解决方案，重点讲解了Selection.Find方法的参数，如替换规则、匹配模式以及Wrap选项，帮助用户进行精确查找和替换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

对于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