title: Finding and replacing within selection is replacing the whole document
body: <p>I'm trying to iterate through all the paragraphs which are not within a table and highlighting the text as such:</p>
  
  <pre><code>'Iterate All Paragraphs
  Dim p
  objWord.Options.DefaultHighlightColorIndex = finalColor
  For Each p In objDoc.Paragraphs
      p.Range.Select
      If Not objWord.Selection.Information(wdWithInTable) Then
          With objWord.Selection.Range.Find
              .ClearFormatting
              .Highlight = False
              .Forward = True
              .Wrap = wdFindStop
              .Replacement.ClearFormatting
              .Replacement.Highlight = True
            .Execute , , , , , , True, wdFindStop, , , wdReplaceAll
          End With
      End If
  Next
  </code></pre>
  
  <p>The condition <code>objWord.Selection.Information(wdWithInTable)</code> works just fine, however the Find/Execute is replacing all non highlighted text throughout the document, even if within tables.</p>
  
  <p>Any guesses as why? </p>