文档内容如何批量修改

最近正在对一套书稿进行后续修改，按照编辑的要求，需要对文档中涉及的一些术语进行规范化操作，例如“微软”统一修改为“Microsoft”、“谷歌”修改为“Google”，类似这样的术语有很多，如果逐一进行查找或替换的操作，虽然可以实现修改的要求，但其中的工作量可想而知。其实，我们可以利用VBA代码，结合Excel数据清单实现批量修改的要求。

1. 创建数据清单

为方便起见，我们首先可以在Excel工作表下创建一份数据清单，设置“修改前”和“修改后”两列，将需要批量修改的词语分别在两列录入，效果如图1所示，将工作簿文件与待修改的Word文档保存在同一路径下。



2. 插入模块代码

打开需要修改的Word文档，按下“Alt+F11”组合键，打开Microsoft Visual Basic for Applications窗口，依次选择“插入→模块”，在右侧窗格插入一个空白模块，手工输入或粘贴如下代码（代码文件下载地址：http://pan.baidu.com/s/1qWPhZ1U）

如图2所示，上述代码中的宏名称“修改”可以任意设置，请注意“\数据清单.xlsx”的信息，如果该文件没有与Word文档放在同一路径下，或者文件名有所差异，请根据实际情况自行修改。如果代码检查无误，那么可以依次选择“文件→关闭并返回到Microsoft Word”，或者按下“Alt+Q”组合键，返回Word界面，按下“Alt+F8”组合键，打开“宏”对话框，如图3所示，单击右侧的“运行”按钮，稍等片刻，即可参考数据清单中列出的词语对Word文档进行批量修改。





小提示：

这个技巧的价值在于，如果要重复进行如上需求的大量工作（如对大量文章的编辑或资料整理），只要修改“数据清单.xlsx”工作簿文件中的内容，运行VBA代码，即可对其他的Word文档进行批量修改，是不是很方便？