Hello all,

I've been trying unsuccessfully to search for a phrase, select 2 words before it, then italicize the text (including the phrase I searched for). The code I have below is entirely unsuccessful, and somehow just deletes "and Michael". Any suggestions?



Sub Macro2()

Selection.Find.ClearFormatting
With Selection.Find
.Text = "and Michael"
.Replacement.Text = "and Michael"
.Forward = True
.Wrap = wdFindStop
Do While .Execute() = True
Selection.TypeParagraph
Selection.MoveLeft Unit:=wdWord, Count:=2, Extend:=wdExtend
Selection.Find.Replacement.Font.Italic = True
Selection.Font.Bold = True
Selection.Collapse Direction:=wdCollapseEnd
Loop
End With
End Sub

You probably don't even need a macro for this - you should be able to do it with a wildcard Find/Replace, where:
Find = <[! ]@ [! ]@ and Michael
Replace = ^&
and you set the replacement format to bold.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]