提醒：本页面将不再更新、维护或者支持，文章、评论所叙述内容存在时效性，涉及技术细节或者软件使用方面不保证能够完全有效可操作，请谨慎参考！

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

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组件来枚举文件》 ，当然，你也可以借助于我编写的 批量文件扫描及进程处理工具 ，这个里面有个批量打印的示例插件，大家可以参考修改一下。