Add Method (Comments Collection) Example

This example adds a comment at the insertion point.

Selection.Collapse Direction:=wdCollapseEnd
ActiveDocument.Comments.Add _
    Range:=Selection.Range, Text:="review this"

This example adds a comment to the third paragraph in the active document.

Set myRange = ActiveDocument.Paragraphs(3).Range
ActiveDocument.Comments.Add Range:=myRange, _
    Text:="original third paragraph"