小编jsp*_*aks的帖子

我正在尝试导出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修改,但是我无法确定包含引用句子的正确对象或属性.

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

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