2024年3月9日发(作者：)

VBA 批量替换多个 WORD 文档中的内容

要想一下子就替换掉很多个 WORD 文档中的内容，我 们

得使用 VBA 的办法才能实现，下面是方法，请过目。

一、前期准备 下面是具体操作步骤。

A，首先将需要批量替换的多个

件夹下面。

B,新建一空白 Word文档，右击空白工具栏，单击“控 件

工具箱”，就可以看到屏幕上调出的控件工具箱。

C ，在控件工具箱上单击“命令按钮”， 文档中就放置了

一 个按钮了。

D ，双击该按钮，进入 VB 代码编写模式，将以下代码 复

制进去。

二、命令按钮的代码

Private Sub CommandButton1_Click()

Updating = False

Dim myPas As String, myPath As String, i As Integer,

myDoc As Document

With alog(msoFileDialogFolderPicker)

Word文档放在同一文

.Title = " 选择目标文件夹

H

If .Show = -1 Then myPath = .SelectedItems(1)

Else

Exit Sub

End If

End With

myPas = InputBox(" 请输入打开密码： ")

With arch

.LookIn = myPath

.FileType = msoFileTypeWordDocuments

If .Execute > 0 Then

For i = 1 To .

Set myDoc =

(FileName:=.FoundFiles(i),

Passworddocument:=myPas)

ormatting

ormatting

With

.Text = "OfficeStudy"

. = "" .Forward = True

.Wrap = wdFindAsk

.Format = False .MatchCase = False .MatchWholeWord =

False .MatchByte = True .MatchWildcards =

False .MatchSoundsLike = False .MatchAllWordForms =

False End With

e Replace:=wdReplaceAll

Set myDoc = Nothing

Next

End If

End With

Updating = True

End Sub 保存上面代码，退出 VB 编辑模式，返回 Word 文

档界 面。

单击选中该按钮， 再单击控件工具箱的第一个按钮“退出

设计模式”。

最后，就可以进行测试：再次点击按钮，就会发现该文 件夹

下面的所有 WORD 文档中的 "OfficeStudy" 被替换为

"" 了。

说明：在实际使用中，可以更改上面代码中的 ""引号里

的字符内容为实际需要批量替换的内容即可。如下所示。

.Text = "OfficeStudy"

. =