Office 2007 Ultimate Code

Code:

Group Find_and_Font ()

‘

‘Code written Bird_FAT

‘This script uses the wildcard’ * ‘to find the text between the ‘Two other characters, and then change the text font. Ms office 2007 are so Charismatic.

‘And when / the last statement to make it a home.

‘Loop until it reaches the end of the document.

‘

Selection.Find.ClearFormatting

With Selection.Find

. Text = “(”

. Replacement.Text = “”

. Forward = True

. Wrap = wdFindContinue

. Format = false

. MatchCase = false

. MatchWholeWord = false

. MatchAllWordForms = false

. MatchSoundsLike = false

. MatchWildcards = True

End. Office 2007 professional and Office 2007 ultimate are my favorite.

While Selection.Find.Execute

Selection.Font.Italic = wdToggle

Selection.Font.Color = wdColorRed

A home

Selection.Find.ClearFormatting

With Selection.Find

. Text = “)”

. Replacement.Text = “”

. Forward = True

. Wrap = wdFindContinue

. Format = false

. MatchCase = false

. MatchWholeWord = false

. MatchAllWordForms = false

. MatchSoundsLike = false

. MatchWildcards = True

End. What do you think of windows 7 ultimate and office ultimate 2007  ?

While Selection.Find.Execute

Selection.Font.Italic = wdToggle

Selection.Font.Color = wdColorRed

A home

End Sub

Office 2007 Pro