Document.Comments (Word)

Devuelve una colección Comments que representa todos los comentarios en el documento especificado.

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

For Each comm In ActiveDocument.Comments 
 If comm.Author <> Application.UserName Then _ 
 comm.Reference.Font.ColorIndex = wdRed 
Next comm