Получение ссылки на текст для комментария

Question

У меня уже есть следующий код для экспорта всех комментариев в другой файл MSWord.

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

Однако мне нужно, чтобы выделенный текст каждого комментария был напечатан вместе с каждым комментарием в новом файле MSWord.

PS. Я совершенно новичок ie в vba. У меня есть только код для этого. Заранее благодарим за помощь

Answer 1

Заменить:

s = s & cmt.Initial & cmt.Index & "," & cmt.Range.Text & vbCr

на что-то вроде:

s = s & cmt.Scope.Text & vbTab & cmt.Initial & cmt.Index & "," & cmt.Range.Text & vbCr