如何在Word中跨多个文件搜索和替换？-英雄云拓展知识分享

如果您有几10个包括相同内容（例如页眉，页脚，某些特殊单词或数字）的Word文件，则需要在Word中的那些文档中替换相同的内容。 您如何更轻鬆地快捷完成工作？ 固然，您可以一个个地打开这些文件以替换相同的内容，但这将很耗时且麻烦。 本教程将向您展现一种奇妙的方式来一次替换Word中多个文档中的相同内容。

使用VBA代码同时查找和替换多个Word文档中的文本
使用轻鬆一次在多个文档中查找和替换不同文本

使用VBA代码同时查找和替换多个Word文档中的文本

1。 按 其他 + F11 打开 Microsoft Visual Basic for Applications 窗口。

2。 在里面 Microsoft Visual Basic for Applications 窗口中，单击 插入 > 模块，然后将以下VBA代码复制到“模块”窗口中。

VBA代码：一次在多个文档中搜索和替换相同内容

Sub CommandButton1_Click()
' 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
.Filters.Clear
.Filters.Add "All WORD File ", "*.docx", 1
.AllowMultiSelect = True
i = 1
If .Show = ⑴ Then
For Each stiSelectedItem In .SelectedItems
GetStr(i) = stiSelectedItem
i = i + 1
Next
i = i - 1
End If
Application.ScreenUpdating = False
xFindStr = InputBox("Find what:", "", xFindStr)
xReplaceStr = InputBox("Replace with:", "", xReplaceStr)
For j = 1 To i Step 1
Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
Windows(GetStr(j)).Activate
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = xFindStr  'Find What
.Replacement.Text = xReplaceStr  'Replace With
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Application.Run macroname:="NEWMACROS"
ActiveDocument.Save
ActiveWindow.Close
Next
Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

3。 按 F5 键来运行代码。

4.在开幕 阅读 窗口，请找到并选择您将在其中找到并替换文本的文档，然后单击 OK 按钮。 看截图：

5.在第一 对话框中，将您将在各个文档中找到的文本输入到 查找内容 框，然后单击 OK 按钮。

6.在第2 对话框中，输入将替换为的文本，然后单击 OK 按钮。

8。 点击 OK 下一个按钮 微软Word 对话框以完成查找和替换。

在这类情况下，所选文档中的所有单词“ Word”将同时替换为“ Excel”。

使用轻鬆一次在多个文档中查找和替换不同文本

在这里强烈推荐 批量查找和替换 的特点 。 使用此功能，您可以轻鬆地同时在多个Word文档中查找和替换不同的文本。 让我们看看如何利用此功能来查找和替换文档中的文本。

：具有100多个方便的Word加载项， 免费试用，不受限制 60 天.

1.请点击 实用工具 加 > 批量查找和替换 启用该功能。

2。 在里面 批量查找和替换 对话框，请进行以下配置。

• 2.1）点击 添加行 按钮下 查找和替换 标签;
• 2.2）在创建的行字段中：

• 2.3）重复步骤2.1和2.2，添加更多您将找到并替换的文本；
• 2.4）点击  按钮在 文件类型 添加要在其中查找和替换文本的Word文档的部份；
• 2.5）点击 更换 or 发现 按钮。 看截图：

3。 关上 批量查找和替换 对话框

有关此功能的更多信息，请 点击这里....

如果您想免费试用该实用程序，请转到 免费下载软件 首先，然后依照上述步骤进行操作。