title: Find text, Insert page break and repeat
body: <p>How do I find a phrase, go to the beginning of the line the phrase is in, insert a page break, then execute the macro again.</p>
  
  <p>I have attempted the following but it will not go to the following value of "Agent Name" upon subsequent execution.</p>
  
  <pre><code>Sub mFI()
      ' ' mFI Macro ' '
      Selection.MoveRight Unit:=wdCharacter, Count:=1
      With Selection
          .Find
          .ClearFormatting
          .Forward = True
          .MatchWholeWord = True
          .MatchCase = False
          .Execute FindText:="Agent Name"
      End With
      Selection.MoveRight Unit:=wdCharacter, Count:=1
      Selection.MoveDown Unit:=wdLine, Count:=1
      Selection.InsertBreak Type:=wdPageBreak, Count:=1
  End Sub
  </code></pre>