You can do that with a vba procedure:

Sub ScratchMacro()
Dim oRng As Range
Set oRng = ActiveDocument.Content
With oRng.Find
.ClearFormatting
.Text = "\(<*>\)"
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
Do While .Execute
With oRng
.HighlightColorIndex = wdYellow
.Collapse wdCollapseEnd
End With
Loop
End With
End Sub

For help installing and using this macro see: http://www.gmayor.com/installing_macro.htm

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/