title: VBA Word: I would like to find a phrase, select the words before it, and italicise the text
body: <p>I'm having trouble with VBA commands to find a certain phrase, then select the 1 or 2 words before it, and then italicize the entire thing.</p>
  
  <p>I'm able to use the <code>Selection.Find</code>, <code>Font.Italicise</code>, and <code>wdExtend</code> commands independently of each other, but when I combine them to perform this task, the macro just crashes. Any help?</p>
  
  <pre><code>Selection.Find.ClearFormatting
   With Selection.Find
       .Text = "Michael"
       .Replacement.Text = "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
  </code></pre>