Comments Property Example

This example adds a comment to the selected text.

ActiveDocument.ActiveWindow.View.ShowHiddenText = True
Selection.Comments.Add Range:=Selection.Range, Text:="Approved"

This example compares the author name of each comment in the active document with the user name on the User Information tab in the Options dialog box (Tools menu). If the names aren't the same, the comment reference mark is formatted to appear in red.

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