Document.Comments (Word)

Returns a Comments collection that represents all the comments in the specified document.

For information about returning a single member of a collection, see Returning an object from a collection.

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