Revision.Accept-Methode (Word)

Nimmt die angegebenen Überarbeitungen an, entfernt die Überarbeitungsmarkierung und integriert die Änderung im Dokument.

Syntax

expression. Accept

Ausdruck: Erforderlich. Eine Variable, die ein Revision-Objekt darstellt.

Beispiel

In diesem Beispiel wird die nächste gefundene Überarbeitung angenommen, wenn die Art der Überarbeitung eingefügter Text ist.

Set revNext = Selection.NextRevision(Wrap:=True) 
 
If Not (revNext Is Nothing) Then 
 If revNext.Type = wdRevisionInsert Then revNext.Accept 
End If

In diesem Beispiel werden alle Überarbeitungen in der Markierung angenommen.

Dim revLoop As Revision 
Dim rngSelection As Range 
 
Set rngSelection = Selection.Range 
For Each revLoop In rngSelection.Revisions 
 revLoop.Accept 
Next revLoop

Siehe auch

Revisionsobjekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.