如何一次性替换多个word的内容（批量替换多个word文档内容）

工作上有个同事问我：

我手上有一批合同，能不能帮我把里面的“老项目名”全部都改成“新项目名”。

我说好呀，有多少个呀？120多个。。。X。。。

好吧，写个【宏】吧：

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim myFile$, myPath$, i%, myDoc As Object, myAPP As Object, txt$, Re_txt$

Set myAPP = New Word.Application

With Application.FileDialog(msoFileDialogFolderPicker)

.Title = "选择目标文件夹"

If .Show = -1 Then

myPath = .SelectedItems(1)

Else

Exit Sub

End If

End With

myPath = myPath & "\"

myFile = Dir(myPath & "*.doc*")

txt = InputBox("需要替换的文字：")

Re_txt = InputBox("替换成：")

'myAPP.Visible = True '是否显示打开文档

Do While myFile <> ""

例如我想把下面三个文件的“东西”都换成“美女”

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

原创不易，转载请保留出处。

,