批量替换多个word文档内容(word怎么同时替换多个)

同事问我工作上的事

我手上有批合同，能否帮忙将其中的老项目名全部替换为新项目名？

我说好啊，有多少个？120多个。

好吧，那就写个宏吧

请选择要保存文件的目标文件夹位置

Else

Exit Sub

End If

End With

请输入要替换的文字：

请输入要替换成的内容：

设置 myAPP.Visible 为 True，控制是否显示打开的文档。

如果 myDoc 的保护类型为无保护状态，则执行相应操作。

End With

End If

Loop

关闭临时进程：myAPP.Quit

弹出提示：全部替换已完成！

End Sub

已将上方制作为按钮。

例如想将三个文件中的东西全部替换为美女

关注公众号，后台回复Word批量替换获取宏文档。

原创辛苦，转载请注明出处。