如何在 Word 中实现跨多个文件的查找与替换？

作者Amanda Li修改日期2025-04-14

如果您拥有数十个包含相同内容（如页眉、页脚或特定文本）的 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），即可添加更多查找和替换规则。
完成后，请关闭批量查找与替换对话框。