Range.Comments (Word)

Devuelve una colección Comments que representa todos los comentarios en el documento, la selección o el intervalo que se ha especificado.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

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