I can't get the correct color of a hyperlink

[My Jimmy]

I'm writing a VBA macro that find any font color used except from black (RGB: 0,0,0) and blue.
If this macro finds a character that isn't black and blue in a paragraph, it shows the text of the paragraph with a message box.


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



But, this macro doesn't work for a hyperlink.
When you execute this macro, this macro shows the pragraph including the hyperlink although the hyperlnk is blue and the remaining text is black in the paragraph.

My macro checks the following properties for checking the font color:
* Range.Font.Color
* Range.Font.TextColor
* Range.Style.Font.Color
* Range.Style.Font.TextColor

But, my macro can't get the blue color from any above property.
In the hyperlink text "This is a test link.", this macro finds that the first "T" character isn't black and blue.

Also, I've attached a sample document.

Please help me.

[macropod]

Cross-posted at:
A VBA macro can't get the correct color of a hyperlink in MS Word - Stack Overflow (https://stackoverflow.com/questions/72555249/a-vba-macro-cant-get-the-correct-color-of-a-hyperlink-in-ms-word)
A VBA macro can't get the correct color of a hyperlink in MS Word (msofficeforums.com) (https://www.msofficeforums.com/word-vba/49167-vba-macro-cant-get-correct-color-hyperlink.html)
A VBA macro can't get the correct color of a hyperlink in MS Word - Microsoft Community (https://answers.microsoft.com/en-us/msoffice/forum/all/a-vba-macro-cant-get-the-correct-color-of-a/9682060a-3d37-4aec-9618-caed2b9606bd)
(and who knows how many others).
It seems you really don't care how many people waste their time working on essentially the same answer...
Please read VBA Express' policy on Cross-Posting in Rule 3: http://www.vbaexpress.com/forum/faq.php?faq=new_faq_item#faq_new_faq_item3. These are rules you agreed to comply with when you signed up here.

[Chas Kenyon]

If you do not want to be banned from help forums, read https://www.excelguru.ca/content.php?184 and the rules here. Follow the recommendations including selecting one primary place for answers and following up in each place you posted.