Options.DefaultHighlightColorIndex = wdYellow
Selection.Find.ClearFormatting
With Selection.Find.Font
.Bold = True
.Italic = True
.Superscript = False
.Subscript = False
End With
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
Selection.Find.Replacement.Style = ActiveDocument.Styles("cBI")
With Selection.Find.Replacement.Font
.Bold = False
.Italic = False
.Superscript = False
.Subscript = False
End With
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Find.Execute Replace:=wdReplaceAll