Finding underlined text in Word????

[Rainman76]

Anyone know how you might find underlined words in a word document? Once I find them I want to change the underlined color to red. I know how to do that (.Font.UnderlineColor = wdColorRed), just don't know how to find the underlined words.

Any help would be greatly appreciated.

Thanks!

 

[mintjulep]

Macro recorder creates this:

Sub Macro1()

    Selection.Find.ClearFormatting
    Selection.Find.Font.Underline = wdUnderlineSingle
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
End Sub

 

[fumei]

With ActiveDocument.Content.Find
    .Font.Underline = True
    .Text = ""
    With .Replacement
        .Font.UnderlineColor = wdColorRed
        .Text = ""
    End With
    .Execute Format:=True, Replace:=wdReplaceAll
End With

This does not use the Selection object, and therefore does not use screen resources. It simply makes all underlined text red. The .Text being "" means that all text i8s subject to it.

Gerry