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