Sub ReplaceExample()
With Selection
.HomeKey unit:=wdStory
With .Find
.ClearFormatting
.Replacement.ClearFormatting
'**********************
.Text = "\[(*)\]"
.Replacement.Text = "\1"
.Replacement.Font.name = "Times New Roman"
.Replacement.Font.Color = wdColorGreen
.Replacement.Font.Bold = True
'**********************
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
End With
End Sub
http://www.gmayor.com/installing_macro.htm
--
Graham Mayor - Word MVP
My web site
www.gmayor.com
Word MVP web site
http://word.mvps.org
jbesr1230 wrote:
Hello,
I would like a macro the would make all text between braces "[ text ]"
green, bold and in times new roman font size 14. All, if possible the
macro would remove the braces when done.
Thank-you.
JB