VBScript/VBA批量替换Word指定的内容

!本文可能 超过1年没有更新,今后内容也许不会被维护或者支持,部分内容可能具有时效性,涉及技术细节或者软件使用方面,本人不保证相应的兼容和可操作性。

在Microsoft TechNet上《你好,脚本专家!》看到的技巧,原文是《如何加粗整个 Microsoft Word 文档中的特定词?》,代码摘录如下:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Const wdReplaceAll  = 2
 
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
 
Set objDoc = objWord.Documents.Open("C:\Scripts\Test.doc")
Set objSelection = objWord.Selection
 
objSelection.Find.Text = "Fabrikam"
objSelection.Find.Forward = TRUE
objSelection.Find.MatchWholeWord = TRUE
 
objSelection.Find.Replacement.Font.Bold = True
 
objSelection.Find.Execute ,,,,,,,,,,wdReplaceAll

其替换C:\Scripts\Test.doc内指定的Fabrikam单词格式为粗体,那么如何才能实现替换为另外指定的单词呢?注意objSelection.Find.Replacement.Font.Bold = True这句,其实我们只需要将其改动为objSelection.Find.Replacement.Text = “你要替换的字符串”,就可以实现这个功能了,如何批量替换Word里指定的字句?那就需要用到我前面介绍的枚举文件的文章《利用Scripting.FileSystemObject组件来枚举文件》,当然,你也可以借助于我编写的批量文件扫描及进程处理工具,这个里面有个批量打印的示例插件,大家可以参考修改一下。

若无特别说明,本网站文章均为原创,原则上这些文章不允许转载,但是如果阁下是出于研究学习目的可以转载到阁下的个人博客或者主页,转载遵循创作共同性“署名-非商业性使用-相同方式共享”原则,请转载时注明作者出处谢绝商业性、非署名、采集站、垃圾站或者纯粹为了流量的转载。谢谢合作!
请稍后...

发表评论

电子邮件地址不会被公开。 必填项已用*标注

*