本示例拒绝活动文档中的所有修订。

ActiveDocument.Revisions.RejectAll

 

本示例拒绝所选内容中的所有修订。

Dim rngTemp As Range
Set rngTemp = Selection.Range
rngTemp.Revisions.RejectAll