If ActiveDocument.Revisions.Count >= 1 Then ActiveDocument.Revisions.AcceptAll End If
本示例接受所选内容中的所有修订。
Selection.Range.Revisions.AcceptAll