用VBA实现批量修改多个Word文档内容.docVIP

用 vba 实现多个 word 文档里的多个内容进行批量更改 说明：本方法思路是借用 word 文件进行查找更改。  excel  的表格对多个内容进行界面管理，再用  excel  的  vba  调用 使用方法： 将以下内容（不包括本句）复制进  excel  的宏模块，保存，然后  excel  界面设置如下： 输入数据，运行宏就可以了。 （若需要现成的 excel 文件，请单独下载） 注：版权所有严禁转载 Sub 更新录入 () Dim a, b, zhs zhs = Sheet1.Range(c Rows.Count).End(xlUp).Row p = ThisWorkbook.Path \ If Sheet1.Range(c5).Value = Then wjj = 新文书 Else wjj = Sheet1.Range(c5).Value End If If zhs 3 Then CreateObject(Wscript.shell).popup 没有数据可以录入 ,请输入数据后再点击生成 新文档！ , 1, 提示！ , 0 + 32 Exit Sub End If If Sheet1.Range(F1) 修改本级文档 Then On Error Resume Next Set ofso = CreateObject(Sc