!
在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组件来枚举文件》，当然，你也可以借助于我编写的批量文件扫描及进程处理工具，这个里面有个批量打印的示例插件，大家可以参考修改一下。
若无特别说明，本网站文章均为原创，原则上这些文章不允许转载，但是如果阁下是出于研究学习目的可以转载到阁下的个人博客或者主页，转载遵循创作共同性“署名-非商业性使用-相同方式共享”原则，请转载时注明作者和出处，谢绝商业性、非署名、采集站、垃圾站或者纯粹为了流量的转载。谢谢合作！