title: Applying Find.Wrap in a specified Range
body: <p>I'm trying to check for inconsistencies in spelling between UK and US English, &quot;aging&quot;/&quot;ageing&quot; as an example, to display a message box if inconsistencies are found.</p>
  <p>I need to only search for text in the main body of work, i.e., between the words Abstract and References (both in bold, so it only catches when used as headers).</p>
  <p><code>Wrap = wdFindContinue</code> seems to be extending the search outside of the range.<br />
  <code>Wrap = wdFindStop</code> doesn't work.<br />
  <code>wdFindAsk</code> is inappropriate for the use case.</p>
  <pre class="lang-vb prettyprint-override"><code>Sub inconsistencyCheck()
  
  Dim myrange As Range
  Dim a As Integer
  Dim b As Integer
  
  Set myrange = ActiveDocument.Range
  a = 0
  b = 0
  
  'search for abstract
      With Selection.Find
          .Font.Bold = True
          .Text = &quot;Abstract&quot;
          .Wrap = wdFindContinue
          .Execute
      End With
      
      myrange.Start = Selection.Start
  
  'search for references
      With Selection.Find
          .Font.Bold = True
          .Text = &quot;References&quot;
          .Wrap = wdFindContinue
          .Execute
      End With
  
      myrange.End = Selection.Start
      myrange.Select
  
  'search for inconsistencies
      With myrange.Find
  
          .MatchWholeWord = False
          .Wrap = wdFindContinue
          .Execute findtext:=&quot;aging&quot;
          .Format = True
          .Forward = True
          If .Found = True Then
              a = 1
          End If
  
          .MatchWholeWord = False
          .Wrap = wdFindContinue
          .Execute findtext:=&quot;ageing&quot;
          .Format = True
          .Forward = True
          If .Found = True Then
              b = 1
          End If
              
      End With
  
  If a = 1 And b = 1 Then
      MsgBox &quot;Both spellings of ageing found, please revise&quot;
  End If
  
  End Sub
  </code></pre>