Range.Comments (Word)

Retorna uma coleção Comments que representa todos os comentários no documento, na seleção ou no intervalo especificado. Somente leitura.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

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