本示例检查对活动文档正文部分的修订,如果有,则示例在文档的所有组成部分中拒绝所有的修订。

If ActiveDocument.Revisions.Count >= 1 Then
    ActiveDocument.RejectAllRevisions
End If