Highlighting Replaced Words

[ljjtek]

What would be the code if I wanted to highlight certain words within a document? Like if I wanted to replace any instance of the word 'boy' with 'boy'(highlighted)?

So far, this is what I have...



Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "boy"
.Replacement.Text = "boy"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute replace:=wdReplaceAll

 

[TonyJollans]

Hi ljjtek,

Just add

Selection.Find.Replacement.Highlight = True

somewhere before the Find.Execute

Enjoy,
Tony