collection in a document.
expression.DeleteAllComments
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
Use the Add method for the Comments object to add a comment to a document.
Example
This example deletes all comments in the active document. This example assumes you have comments in active document.
Sub DelAllComments()
ActiveDocument.DeleteAllComments
End Sub