Range.Comments (Word)

Returns a Comments collection that represents all the comments in the specified document, selection, or range.

For information about returning a single member of a collection, see Returning an object from a collection.

Dim cmmsComments As Comments
Set cmmsComments = ActiveDocument.Range.Comments