Document.DeleteAllComments (Word)

Deletes all comments from the Comments collection in a document.

Use the Add method for the Comments object to add a comment to a document.

Sub DelAllComments() 
 ActiveDocument.DeleteAllComments 
End Sub