Quote:
Originally Posted by Bahir Barak
OK , but when I done these changings in code and run the macro it gives this error :
((
Run-time error ,5560:
The Find What text contains a Pattern Match expression which is not valid.
))
|
AH - I see the problem - you've left wildcards as TRUE
Try this - it should work!!
Code:
Sub find_and_colour_brackets()
'
' Code written by Bird_FAT
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "("
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
While Selection.Find.Execute
Selection.Font.Color = wdColorRed
Selection.Font.Italic = wdToggle
Wend
Selection.Find.ClearFormatting
With Selection.Find
.Text = ")"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
While Selection.Find.Execute
Selection.Font.Color = wdColorRed
Selection.Font.Italic = wdToggle
Wend
End Sub