Word VBA正则表达式问题：重复匹配的号码无法被高亮

原代码存在以下核心问题导致重复号码无法被全部高亮：

• 未定义wrdoc对象，直接使用会引发错误（实际应为ActiveDocument的笔误）
• 仅执行一次Find.Execute，只能找到当前号码的第一个实例，后续重复出现的同一号码被遗漏
• 每次循环都从文档开头重新查找，未处理同一号码的后续匹配项

以下代码可实现所有符合XXX-XXX-XXX格式的号码（含重复出现的）全部设置为加粗红色：

Public Sub HighlightPhoneNumbers()
    Dim regex As VBScript_RegExp_55.regexp
    Dim matches As VBScript_RegExp_55.MatchCollection
    Dim match As VBScript_RegExp_55.Match
    Dim wrdrng As Range
    Dim wrdfind As Find
    
    Set regex = New VBScript_RegExp_55.regexp
    With regex
        .IgnoreCase = True
        .MultiLine = True
        .Global = True
        .Pattern = "\d{3}-\d{3}-\d{3}\b"
    End With
    
    ' 获取文档中所有匹配的号码
    Set matches = regex.Execute(ActiveDocument.Range.Text)
    
    For Each match In matches
        Set wrdrng = ActiveDocument.Content
        Set wrdfind = wrdrng.Find
        
        With wrdfind
            .Text = CStr(match.Value)
            .MatchWholeWord = True ' 避免匹配包含该号码的更长文本
            .Wrap = wdFindContinue ' 查找至文档末尾后回到开头继续
            .Forward = True
            .ClearFormatting
            .Replacement.ClearFormatting
        End With
        
        ' 循环查找当前号码的所有实例并设置格式
        Do While wrdfind.Execute()
            wrdrng.Bold = True
            wrdrng.Font.ColorIndex = wdRed
        Loop
    Next
End Sub

1. 修复对象定义：将未定义的wrdoc替换为ActiveDocument，确保代码正确指向当前文档
2. 添加循环查找逻辑：用Do While wrdfind.Execute()循环遍历当前号码的所有实例，避免遗漏重复项
3. 优化查找规则：开启.MatchWholeWord = True防止部分匹配，同时清除查找格式避免干扰
4. 规范变量命名：调整子过程和变量名称，提升代码可读性

Word的Find功能原生支持通配符，可直接用通配符匹配格式，代码更简洁高效：

Public Sub HighlightPhoneNumbers_DirectFind()
    Dim wrdfind As Find
    
    Set wrdfind = ActiveDocument.Content.Find
    With wrdfind
        .ClearFormatting
        .Replacement.ClearFormatting
        .Replacement.Bold = True
        .Replacement.Font.ColorIndex = wdRed
        .Text = "[0-9]{3}-[0-9]{3}-[0-9]{3}" ' Word通配符匹配目标格式
        .MatchWildcards = True
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll ' 一次性处理所有匹配项
    End With
End Sub

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