如何在Word中跨多个文件进行查找和替换？

Author: Amanda Li Last Modified: 2025-05-07

如果您有几十个包含相同内容（如页眉、页脚或特定文本）的Word文件，并且需要在所有文档中替换这些内容，手动操作可能会非常繁琐。本教程介绍了两种方法，可以快速一次性替换多个Word文档中的相同或不同内容。

使用VBA代码同时在多个Word文档中查找和替换文本
 使用Kutools for Word轻松同时在多个文档中查找和替换不同的文本

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

此方法展示如何使用VBA代码同时在多个文档中搜索和替换内容。

按 Alt + F11 打开Microsoft Visual Basic for Applications窗口。

点击“插入”>“模块”，然后粘贴以下代码：

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String
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 = -1 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:", "Kutools for Word", xFindStr)
    xReplaceStr = InputBox("Replace with:", "Kutools for Word", 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
            .Replacement.Text = xReplaceStr
            .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
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

按 F5 运行代码。
在浏览窗口中，选择要处理的文档，然后点击“确定”。
在“查找内容”输入框中，输入要查找的单词或短语，然后点击“确定”。
在“替换为”输入框中，输入替换文本并点击“确定”。
在最终的Microsoft Word对话框中点击“确定”。

所选Word文件中指定文本的所有实例将被一次性替换。

使用Kutools for Word轻松同时在多个文档中查找和替换不同的文本

Kutools for Word 的“批量查找与替换”功能允许您一次跨多个Word文档搜索和替换多个文本项。

Kutools for Word，内置 AI 🤖，提供超过 100 种实用功能，助您简化任务。

立即下载

点击“Kutools”>“批量替换”。
在批量查找与替换对话框中，配置设置：
1. 点击“添加行”按钮。
2. 在新行中：
  1. 在“查找”下输入要查找的文本。
  2. 在“替换”下输入替换文本。
  3. 根据需要，在相应的列中指定查找类型、查找和替换的位置、高亮颜色及其他选项。
3. 点击 “文件类型”部分中的按钮以添加Word文件到批次中。
4. 点击“替换”或“查找”。
  提示：重复步骤1）和2）以添加更多查找和替换规则。
完成后关闭批量查找与替换对话框。