Document.Comments (Word)

Retorna uma coleção Comments que representa todos os comentários no documento 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.

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