Getting the associated text referred to by a comment

[Ken Valenti]

I know how to get a list of comments in a document, but don't know how to
return the selected text that the comment refers to.

This macro will return a list the text of the comment itself, but I need to
know the text in the document that it is referring to.

Sub TestComments()
Dim comm As Comment
For Each comm In ActiveDocument.Comments
Debug.Print comm.Range.Text
Next
End Sub

Thanks in advance for any advice,

 

[Jay Freedman]

I know how to get a list of comments in a document, but don't know how to
return the selected text that the comment refers to.

This macro will return a list the text of the comment itself, but I need to
know the text in the document that it is referring to.

Sub TestComments()
Dim comm As Comment
For Each comm In ActiveDocument.Comments
Debug.Print comm.Range.Text
Next
End Sub

Thanks in advance for any advice,

Substitute (or add)

Debug.Print comm.Scope.Text

 

[Ken Valenti]

Perfect - thank you!

Substitute (or add)

Debug.Print comm.Scope.Text


--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit.