本示例在打印活动文档时不带有修订标记。
With ActiveDocument
.PrintRevisions = False
.PrintOut
End With