Word宏开发需求：高亮指定后缀完整单词及功能优化

一、核心匹配逻辑 #

要高亮以指定后缀结尾的完整单词，需启用Word查找的通配符模式，使用语法：\<*[后缀]\>，其中：

• \<：匹配单词开头边界
• *：匹配任意数量的非单词分隔符字符
• [后缀]：替换为目标后缀（如more）
• \>：匹配单词结尾边界
  该语法能精准定位完整单词，不会误高亮包含后缀的片段（比如不会选中Everyday里的ever部分）。

二、外部后缀列表加载方案 #

针对800个后缀的场景，直接写入代码会触发字符串过长错误，建议用**纯文本文件（.txt）**存储后缀，格式要求：

• 每行仅写一个后缀，无多余空格或特殊符号
• 示例内容：

more
ever
ing

宏会读取该文件的每一行自动生成后缀列表，彻底规避长度限制问题。

三、完整宏代码 #

Sub HighlightWordsBySuffix()
    Dim targetSuffixes As Variant
    Dim suffix As Variant
    Dim docRange As Range
    Dim highlightCount As Integer
    Dim fso As Object
    Dim txtFile As Object
    Dim filePath As String
    
    ' 初始化高亮计数
    highlightCount = 0
    
    ' 让用户选择后缀文本文件
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "文本文件", "*.txt"
        If .Show = -1 Then
            filePath = .SelectedItems(1)
        Else
            MsgBox "未选择文件，宏终止执行。"
            Exit Sub
        End If
    End With
    
    ' 读取后缀列表
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txtFile = fso.OpenTextFile(filePath, 1) ' 1代表只读模式
    targetSuffixes = Split(txtFile.ReadAll, vbCrLf)
    txtFile.Close
    
    ' 遍历每个后缀执行查找高亮
    For Each suffix In targetSuffixes
        ' 跳过文本文件中的空行
        If Trim(suffix) <> "" Then
            Set docRange = ActiveDocument.Range
            With docRange.Find
                .Text = "\<*" & suffix & "\>"
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = True ' 必须启用通配符
                .MatchSoundsLike = False
                .MatchAllWordForms = False
                
                Do While .Execute(Forward:=True) = True
                    docRange.HighlightColorIndex = wdGray25
                    highlightCount = highlightCount + 1
                Loop
            End With
        End If
    Next suffix
    
    ' 弹出高亮统计结果
    MsgBox "找到 " & highlightCount & " 个单词", vbInformation, "高亮完成"
End Sub

四、使用步骤 #

1. 新建纯文本文件，按要求写入所有后缀，保存为suffix_list.txt（或自定义名称）
2. 打开目标Word文档，按Alt+F11打开VBA编辑器
3. 插入新模块，粘贴上述代码
4. 运行宏，选择后缀文本文件，等待高亮完成后查看统计弹窗

内容的提问来源于stack exchange，提问作者Willem