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