If Not Selection.Range.Hyperlinks.Count > 0 Then Selection.Find.Replacement.Font.Color = wdColorRed End If