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
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für