Document.AcceptAllRevisions (Word)

√úbernimmt alle √úberarbeitungen im angegebenen Dokument.

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