VBA宏无法正确识别MS Word中超链接的字体颜色

问题背景 #

编写VBA宏实现如下功能：识别Word文档中除黑色（RGB: 0,0,0）、蓝色之外的所有字体颜色，若某段落存在非黑、非蓝的可见字符，通过消息框展示该段落完整文本。

原问题代码 #

Option Explicit

Sub test()

    Dim oParagraph As Paragraph, oLink As Hyperlink
    Dim char As Range
    Dim bFound As Boolean, i As Integer
    Dim strHex As String, strHex1 As String, strHex2 As String, strHex3 As String
    Dim strHex4 As String, strHex5 As String
    
    bFound = False
    
    For Each oParagraph In ActiveDocument.Paragraphs
    
        For Each char In oParagraph.Range.Characters
            strHex = Hex(char.Font.TextColor.RGB)
            strHex1 = Hex(char.Font.ColorIndex)
            strHex2 = Hex(char.Font.Color)
            strHex3 = Hex(char.Style.Font.Color)
            strHex4 = Hex(char.Style.Font.ColorIndex)
            strHex5 = Hex(char.Style.Font.TextColor.RGB)

            If char.Font.Color <> wdColorAutomatic And char.Font.Color <> wdColorBlack _
               And char.Font.Color <> wdColorBlue Then

                bFound = True
                GoTo nt_lb

            End If
        Next char

    Next oParagraph

nt_lb:
    If bFound = True Then
        MsgBox oParagraph.Range.Text
    End If

End Sub

故障表现 #

宏处理含超链接的段落时存在误判：即使段落内超链接为标准蓝色、其余文本均为黑色，宏仍会判定段落存在异常颜色并弹出提示。
尝试通过以下字体属性获取颜色值，均无法返回超链接正确的蓝色结果：

• Range.Font.Color
• Range.Font.TextColor
• Range.Style.Font.Color
• Range.Style.Font.TextColor
  测试确认：针对超链接文本This is a test link.，宏会错误判定首字符"T"不属于黑色或蓝色。

故障根因 #

1. 遍历Characters集合时，会默认包含超链接域的隐藏域标记字符，这类字符不属于可见显示文本，颜色属性不遵循超链接的蓝色样式
2. Word默认超链接样式使用的蓝色为RGB(5, 99, 193)，并非系统常量wdColorBlue对应的纯蓝色RGB(0,0,255)，原判断条件未覆盖该默认超链接蓝
3. 直接读取Font.Color属性时，若字符应用了超链接样式，属性会返回样式基准值而非实际渲染颜色，导致取值偏差

修复后代码 #

Option Explicit

Sub CheckNonStandardFontColor()
    Dim oParagraph As Paragraph
    Dim char As Range
    Dim bFound As Boolean
    Dim currentColor As Long
    
    ' 配置允许的颜色值
    Const ALLOW_COLOR_BLACK As Long = 0           ' 纯黑 RGB(0,0,0)
    Const ALLOW_COLOR_PURE_BLUE As Long = wdColorBlue ' 纯蓝 RGB(0,0,255)
    Const ALLOW_COLOR_HYPERLINK_BLUE As Long = 12611585 ' Word默认超链接蓝 RGB(5,99,193)
    
    bFound = False
    
    For Each oParagraph In ActiveDocument.Paragraphs
        For Each char In oParagraph.Range.Characters
            ' 跳过隐藏字符（含超链接域标记），仅检测可见文本
            If char.Font.Hidden = False Then
                ' 获取字符实际渲染的RGB颜色值
                currentColor = char.Font.TextColor.RGB
                
                ' 检测是否存在非允许范围的颜色
                If currentColor <> ALLOW_COLOR_BLACK _
                   And currentColor <> ALLOW_COLOR_PURE_BLUE _
                   And currentColor <> ALLOW_COLOR_HYPERLINK_BLUE Then
                    bFound = True
                    GoTo ShowResult
                End If
            End If
        Next char
    Next oParagraph

ShowResult:
    If bFound Then
        MsgBox oParagraph.Range.Text
    End If
End Sub

修复说明 #

• 新增隐藏字符过滤：跳过设置为隐藏格式的域标记字符，仅对可见文本做颜色检测
• 统一使用Font.TextColor.RGB属性获取字符实际渲染的颜色值，避免样式继承、颜色模式（自动/自定义）导致的取值错误
• 补充Word默认超链接蓝色到允许颜色列表，覆盖默认超链接场景；如果文档使用了自定义超链接颜色，可修改ALLOW_COLOR_HYPERLINK_BLUE常量值匹配实际需求
• 清理原代码中未使用的冗余变量，简化判断逻辑

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