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