ActiveDocument.Revisions.RejectAll
本示例拒绝所选内容中的所有修订。
Dim rngTemp As RangeSet rngTemp = Selection.RangerngTemp.Revisions.RejectAll