title: When exporting Word review comments, how do you reference the sentence related to a comment?
body: <p>I am trying to export a Word document's review comments.  I want to export the sentence selection that was commented on followed by the comment.</p>
  
  <p>Screen shot of the image: <a href="http://jspeaks.com/mswordcomment.png" rel="nofollow noreferrer">http://jspeaks.com/mswordcomment.png</a></p>
  
  <p>I have found code to loop through the document comments, but I cannot figure out how to reference the sentence selection that the comment was related to.</p>
  
  <p>The current logic is:</p>
  
  <pre><code>Sub ExportComments()
      Dim s As String
      Dim cmt As Word.Comment
      Dim doc As Word.Document
  
      For Each cmt In ActiveDocument.Comments
          s = s &amp; cmt.Initial &amp; cmt.Index &amp; "," &amp; cmt.Range.Text &amp; vbCr
      Next
  
      Set doc = Documents.Add
      doc.Range.Text = s
  End Sub
  </code></pre>
  
  <p>I tinkered with Selection.Range, however I cannot determine the proper object or property that contains the referenced sentence.</p>
  
  <p>I would like to produce output like the following (if we use the example in picture above):</p>
  
  <p>Sentence: Here are more sentences that contain interesting facts - Comment: This is an interesting fact.
  Sentence: Here are more sentences that contain interesting facts.  Here are more sentences that contain interesting facts. - Comment: This is a very interesting fact</p>