同事问我工作上的事
我手上有批合同，能否帮忙将其中的老项目名全部替换为新项目名？
我说好啊，有多少个？120多个。
好吧，那就写个宏吧
请选择要保存文件的目标文件夹位置
Else
Exit Sub
End If
End With
请输入要替换的文字：
请输入要替换成的内容：
设置 myAPP.Visible 为 True，控制是否显示打开的文档。
如果 myDoc 的保护类型为无保护状态，则执行相应操作。
End With
End If
Loop
关闭临时进程：myAPP.Quit
弹出提示：全部替换已完成！
End Sub
已将上方制作为按钮。
例如想将三个文件中的东西全部替换为美女
关注公众号，后台回复Word批量替换获取宏文档。
原创辛苦，转载请注明出处。
