Range.Comments (Word)

Renvoie une collection Comments qui représente tous les commentaires du document, de la sélection ou de la plage spécifiée.

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.

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