VBA 批量突出显示关键词：Word 文档高亮工具

本文将介绍如何使用 VBA 代码实现 Word 文档中批量突出显示关键词功能。该代码可以快速高亮显示所有匹配文本，方便您快速定位和整理文档内容。

代码实现

以下 VBA 代码实现批量高亮关键词功能：

Sub 批量突出显示关键词()
    Dim 查找() As String
    查找 = Split(InputBox('请输入要查找的文字，中间以空格隔开'), ' ')
    
    Dim doc As Document
    Set doc = ActiveDocument
    
    Dim rng As Range
    For Each rng In doc.StoryRanges
        With rng.Find
            For i = 0 To UBound(查找)
                .ClearFormatting
                .Replacement.ClearFormatting
                .Text = 查找(i)
                .Replacement.Highlight = True
                .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, Format:=True
            Next i
        End With
    Next rng
End Sub

使用方法

打开您的 Word 文档。
按下 Alt + F11 进入 VBA 编辑器。
在 VBA 编辑器中，点击 插入 > 模块，新建一个模块。
将上面的 VBA 代码复制粘贴到新建的模块中。
选择 调试 > 运行 或按下 F5 运行该宏。
程序会提示您输入要查找的文本，多个文本之间用空格隔开。
代码会自动在文档中查找并高亮显示所有匹配的文本。

代码解释

Dim 查找() As String：声明一个字符串数组变量 查找 来存储输入的关键词。
查找 = Split(InputBox('请输入要查找的文字，中间以空格隔开'), ' ')：使用 InputBox 函数获取用户输入的关键词，并使用 Split 函数将关键词以空格分割成数组。
Dim doc As Document：声明一个 Document 对象变量 doc 来表示当前打开的 Word 文档。
Set doc = ActiveDocument：将 doc 变量设置为当前活动的 Word 文档。
Dim rng As Range：声明一个 Range 对象变量 rng 来表示文档中的文本范围。
For Each rng In doc.StoryRanges：循环遍历文档中的所有文本范围。
With rng.Find：使用 Find 方法来查找关键词。
.ClearFormatting 和 .Replacement.ClearFormatting：清除查找和替换格式，避免之前的设置影响当前操作。
.Text = 查找(i)：设置查找文本为当前关键词。
.Replacement.Highlight = True：设置替换格式为高亮显示。
.Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue, Format:=True：执行查找和替换操作，使用 wdReplaceAll 替换所有匹配项，Forward:=True 向前查找，Wrap:=wdFindContinue 循环查找，Format:=True 保持格式。

总结

本文介绍了使用 VBA 代码实现 Word 文档中批量突出显示关键词功能，并对代码进行了详细解释。希望本文能帮助您快速完成 Word 文档中的关键词高亮工作。

注意： 该代码仅适用于 Word 文档。如果您需要在其他程序中使用类似功能，请根据具体情况进行修改。

如果您需要更多帮助，请随时在评论区留言。