导出Word评论评论时,如何引用与评论相关的句子？

Question

我正在尝试导出Word文档的评论评论.我想导出评论的句子选择,然后是评论.

图片的屏幕截图:http://jspeaks.com/mswordcomment.png

我找到了循环文档注释的代码,但我无法弄清楚如何引用注释所涉及的句子选择.

目前的逻辑是:

Sub ExportComments()
    Dim s As String
    Dim cmt As Word.Comment
    Dim doc As Word.Document

    For Each cmt In ActiveDocument.Comments
        s = s & cmt.Initial & cmt.Index & "," & cmt.Range.Text & vbCr
    Next

    Set doc = Documents.Add
    doc.Range.Text = s
End Sub

我使用Selection.Range修改,但是我无法确定包含引用句子的正确对象或属性.

我想生成如下输出(如果我们使用上图中的示例):

句子:这里有更多包含有趣事实的句子 - 评论:这是一个有趣的事实.句子:这里有更多包含有趣事实的句子.这里有更多包含有趣事实的句子. - 评论:这是一个非常有趣的事实

Answer 1

我在另一个网站找到了解决这个问题的人.

解决方案的关键是:cmt.Scope.FormattedText

这是修改后的功能:

Sub ExportComments()
    Dim s As String
    Dim cmt As Word.Comment
    Dim doc As Word.Document

    For Each cmt In ActiveDocument.Comments
        s = s & "Text: " & cmt.Scope.FormattedText & " -> "
        s = s & "Comments: " & cmt.Initial & cmt.Index & ":" & cmt.Range.Text & vbCr
    Next

    Set doc = Documents.Add
    doc.Range.Text = s
End Sub