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

For Each sentence In ActiveDocument.StoryRanges
    For Each w In sentence.Words
        Debug.Print w
    Next
Next