Document.RejectAllRevisions (Word)

Lehnt alle überwachten Änderungen im angegebenen Dokument ab.

If ActiveDocument.Revisions.Count >= 1 Then _ 
 ActiveDocument.RejectAllRevisions