本示例接受活动文档中的所有修订。

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

 

本示例接受所选内容中的所有修订。

Selection.Range.Revisions.AcceptAll