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

Word提供了查找和替换功能，以查找单词或短语的所有实例，并同时用新单词替换它们。 但是，如果您想同时查找和替换不同的单词，此内置函数将无济于事。 在本文中，我们讨论的是一种VBA方法，用于同时在Word文档中查找和替换多个不同的单词。

使用VBA代码在Word中同时查找和替换多个单词
借助惊人的功能轻松地同时在Word中查找和替换多个单词

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

请执行以下操作以在Word文档中同时查找和替换多个单词。

1.打开要查找的Word文档，并同时替换多个单词，然后按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将下面的VBA代码复制到“模块”窗口中。

VBA代码：在Word中同时查找和替换多个单词

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,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated 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

3。 按 F5 键来运行代码。

4.在第一 Kutools for Word 对话框中，输入将找到的多个单词并将其替换到文本框中，并用逗号分隔它们，然后单击 OK 按钮。 看截图：

5.在第二 Kutools for Word 对话框中，输入将要替换的新单词（这些单词也需要用逗号分隔），然后单击 OK 按钮。

请注意： 在这种情况下，所有 “ KTE” 在本文档中将被替换为 “新”， 和小 “ KTO” 和小 “ KTW” 将被替换为 “测试” 和小 “完”。 请根据您的需要进行更改。

借助惊人的功能轻松地同时在Word中查找和替换多个单词

1.启动Microsoft Word应用程序，单击 Kutools 加 > 批量查找和替换.

2.在 批量查找和替换 窗口，请进行以下配置。

• 2.1点击 按钮> 添加文件 or 添加文件夹 添加一个或多个文档，您将在其中找到并替换多个单词。
  
• 2.2点击 添加行 按钮插入查找和替换字段。 如果要同时查找和替换三个不同的文本，请创建三行。
• 2.3在每一行中，输入要用新单词替换的现有单词。 在这里 列，然后将新词输入到 更换 列。
• 2.4指定 搜索类型 每行。
• 2.5在 查找 列，选择将查找和替换应用到的位置。 这包括 主要文件, 排气歧管 和小 页脚 在这个部分。 您可以根据需要选择其中之一，其中两个或全部。
• 2.6。 点击 更换 按钮开始操作。 看截图：

然后，将同时替换所选文档中的特定单词。

提示： 您可以通过在 近期亮点 一列。

  如果您想免费试用（60天）此实用程序， 请点击下载，然后按照上述步骤进行操作。

---

推荐的Word生产力工具

 

Kutools For Word-超过100种Word高级功能，节省50％的时间

• 复杂和重复的操作可以在几秒钟内完成一次处理。
• 跨文件夹一次将多个图像插入Word文档。
• 将文件夹中的多个Word文件合并并合并为所需顺序。
• 根据标题，分节符或其他条件将当前文档拆分为单独的文档。
• 在Doc和Docx之间，Docx和PDF之间转换文件，用于常见转换和选择的工具集合等...

了解更多 现在下载 购买