Need Help with Find and Replace Code in Word for text within Parenthesis

[rsrasc]

Hi all,

I would like to bold text within parentheses to also include the text to be highlighted in red.

I found a couple of options to do this but it doesn't work at all. Don't know if the problem is with the Find option or the Replace with option.

Probably both are wrong.

Thank you in advance for your assistance.

Sub Macro2()
'
' Macro to highlight text with parenthesis


'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\(*\)"
        .Replacement.Text = "\1"
        .Forward = True
        .Wrap = wdFindContinue
        .Font.Bold = True
        .Font.ColorIndex = wdRed
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub