如何在Word文档中同时查找和替换多个单词？

Author: Siluvia Last Modified: 2025-07-31

在Word文档中查找和替换单词是一项常见任务，尤其是在需要对冗长的文档进行一致性修改时。然而，如果需要同时查找和替换多个单词，逐个操作可能会非常耗时。幸运的是，有一些高效的方法可以完成此任务。

本教程将向您展示如何使用两种方法在Word文档中同时查找和替换多个单词：

使用VBA在Word中同时查找和替换多个单词
 使用强大的功能轻松在Word中同时查找和替换多个单词

使用VBA在Word中同时查找和替换多个单词

您可以使用VBA代码一次性在Word文档中查找和替换多个单词。请按照以下步骤操作：

打开要查找和替换多个单词的Word文档，然后按 Alt + F11 打开 Microsoft Visual Basic for Applications 窗口。

在 Microsoft Visual Basic for Applications 窗口中，点击插入 > 模块。然后将以下VBA代码复制到模块窗口中：

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here, separated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, separated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

按 F5 运行代码。
在第一个 Kutools for Word 对话框中，输入要查找和替换的多个单词，用逗号分隔，然后点击确定.
在第二个 Kutools for Word 对话框中，输入替换后的单词，同样用逗号分隔，然后点击确定.

注意：在此示例中，“KTE”被替换为“新”，“KTO”和“KTW”分别被替换为“测试”和“完成”。根据您的需求修改这些内容。

使用强大功能轻松在Word中同时查找和替换多个单词

Kutools for Word 的 批量查找与替换 功能是一个强大的工具，可简化在单个文档或多个文档中同时查找和替换多个文本的过程。与标准的Word功能不同，该功能允许您以更高的效率批量处理替换，从而节省大量时间和精力。

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

立即下载

按照以下步骤执行批量查找和替换：

启动Microsoft Word，然后点击 Kutools > 批量替换.
在 批量查找与替换 窗口中，按如下方式配置设置：
1. 点击 添加行 按钮以插入查找和替换字段。例如，如果您需要替换三个不同的文本，请创建三行。
2. 在每一行中，在查找列中输入要替换的文本，并在替换列中输入新文本。
  提示：您还可以为每个查找和替换规则指定查找类型、查找范围、高亮颜色和格式，如下面截图中的橙色高亮所示。
3. 点击按钮并选择文件或目录以添加一个或多个要执行查找和替换操作的文档。
4. 点击替换按钮以执行操作。