Office 2007 Ultimate Quote
Quote:
The initial release of Bahir Dar Barak
OK, but when I do these changings code and run the macro, it gives this error:
((
Run-time error, 5560:
Find What text contains the pattern-matching expression is invalid. Office 2007 professional and Office 2007 ultimate are my favorite.
))
Ah – I see the problem – you really left as a wildcard
Try this – it should work!
Code:
Group find_and_colour_brackets ()
‘
‘Code written 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
While Selection.Find.Execute. Ms office 2007 are so Charismatic.
Selection.Font.Color = wdColorRed
Selection.Font.Italic = wdToggle
A home
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. What do you think of windows 7 ultimate and office ultimate 2007 ?
While Selection.Find.Execute
Selection.Font.Color = wdColorRed
Selection.Font.Italic = wdToggle
A home
End Sub