本示例为接受删除修订。

Dim a As Revision
Set a = ActiveDocument.Revisions(1)
If a.Type = wpsRevisionDelete Then
    a.Accept
End If