遗憾的是，有的文档中批注很复杂，上面两种办法都不能彻底清除干净所有的批注。特别地，如果你启用了跟踪文档改动的功能，文档已被审阅多次，部分批注已由跟踪文档改动功能记录，部分批注却没有被跟踪文档改动功能记录，这时要靠上面两种办法来彻底清除所有批注就更加困难了。如果你也偶尔遇到这个问题，或者经常要彻底清除文档的所有批注，那就应该考虑用一个简单的Word宏来清除文档。

　　下面给出了两个Word宏，两者功能完全一样，但代码略有不同，适用的Word版本也不同。

　　第一个宏，适用于Word 97/2000/2002：

　　Sub RemoveComments1()

　　' 清除当前文档的所有批注

　　' ActiveDocument代表当前活动的（正在查看的）文档

　　' Comments是一个集合对象，其中包含文档的所有批注

　　For Each cmt In ActiveDocument.Comments

　　' 对于Comments集合里面的每一个对象（即每一个批注）

　　' 执行其Delete命令就可以把该对象代表的批注删除

　　cmt.Delete

　　Next

　　End Sub


　　第二个宏仅适用于Word 2002：

　　Sub RemoveComments2()

　　' 执行DeleteAllComments命令清除文档的所有批注

　　ActiveDocument.DeleteAllComments

　　End Sub

　　不管是哪一个版本的Word，定义宏的步骤都差不多。以Word 2000为例，定义宏的步骤是：

　　1、按Alt+F11键打开Visual Basic编辑器。

　　2、输入Word宏的内容，如图三。你可以根据自己的Word版本选用一个宏。

　　3、点击Visual Basic编辑器工具栏上的“保存Norlmal”按钮（图标为软盘的按钮）。

标签：