Comment.Reference (Word)

Returns a Range object that represents a reference mark for a comment.

Dim rngReference As Range
Set rngReference = Selection.Comments(1).Reference