本例删除当前文档中所有批注。

ActiveDocument.DeleteAllCommentsShown