In your example char.Font.Color of the first character of the hyperlink will return 9999999 and not wdColorBlue. Add the test on that value to this line of code:
Code:
If char.Font.Color <> wdColorAutomatic And char.Font.Color <> wdColorBlack _
And char.Font.Color <> wdColorBlue Then