【怎么替换两个word】“word”批量替换多个Word文档内容

在工作中，一位同事问我。

我手上有合同，能不能把里面的“旧项目名”都改成“新项目名”？

我答应了。有几个？120多个。x。

来，写[宏]。

Private Sub CommandButton1_Click()

A=False

Dim my file $、mypath $、I%、mydoc as object、myapp as object、txt $、re _ txt $

Set myAPP=New Word。Application

with a(msofiledialogfolderpicker)

.Title='选择大象文件夹'

中频。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 ' '

Set mydoc=myapp.documen(我的路径中的文件)

“if mydoc . protection type=wdnoprotection then”是否受到保护

With myDoc。Con

.Text=txt

.Re=Re_txt

.Forward=True

.Wrap=2

.Format=False

.MatchCase=False

.MatchWholeWord=False

.MatchByte=True

.MatchWildcards=False

.MatchSoundsLike=False

.MatchAllWordForms=False

.Execute Replace:=2

End With

End If

MyDoc。Save

MyDoc。Close

MyFile=Dir

循环(音乐)

MyAPP。“Quit”关闭临时进程

A=真

MsgBox(“全部替换完成！”)。

End Sub

我把上面的[宏]做成按钮。

例如，我想把以下三个文件中的“东西”都变成“美女”。

关注公众号，在后台回复Word批量更换，就可以获得宏文档

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