title: Loop through each word in a word document
body: <p>I know how to get every paragraph in a word document. But I am looking for a way to loop through each word in a MS Word document. </p>
  
  <pre><code>Sub Sample()
  
  Dim apara As Paragraph
  Dim lineText As String
  
  For Each apara In ActiveDocument.Paragraphs
  
       lineText = apara.Range
  
       'Now print the paragraph 
  
       Debug.Print lineText 
  
  Next apara
  
  End Sub
  </code></pre>