title: Find text in Word, and select content from range
body: <p>I want to find some word, or sentence within a Word document. Then I want to select whole document below that row which contains word/sentence (including that row). After that, to copy content and to paste it into an excel sheet.</p>
  
  <p>I am stuck with selection of ranges.</p>
  
  <p>Edit: There is only one unique sentence.</p>
  
  <p>Please review my code:</p>
  
  <pre><code>Sub importDocfile()
      Dim rng0 As Word.Range
      Dim WordApp As Object, WordDoc As Object
      Dim myRange As Word.Range
      Dim strTheText As String
      Set WordApp = CreateObject("Word.Application")
      'word ll be close to run
      WordApp.Visible = True
      'open the file .doc
      Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path &amp; "\Personality    analysis and profile.docx")
      Set myRange = WordApp.ActiveDocument.Content
      myRange.Find.Execute FindText:="OPQ32" ' Here I dont know how to declare my start range
  End Sub
  </code></pre>