提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

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

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

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


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

请按照以下步骤在Word文档中同时查找和替换多个单词。

1。 打开要查找的Word文档并同时替换多个单词,然后按 其他 + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2。 在里面 Microsoft Visual Basic for Applications 窗口中,单击 插页 > 模块。 然后将以下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生产力工具

Kutools For Word - 超过100 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在Doc和Docx,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Adam · 13 days ago
    Any way to make this case sensitive?
  • To post as a guest, your comment is unpublished.
    rishabh jain · 1 months ago
    will this work in office Excel 365
  • To post as a guest, your comment is unpublished.
    jaka1 · 4 months ago
    Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?