Document.DeleteAllComments (Word)

Exclui todos os comentários da coleção Comments em um documento.

Use o método Add do objeto Comments para adicionar um comentário a um documento.

Sub DelAllComments() 
 ActiveDocument.DeleteAllComments 
End Sub