VBA – Word: Änderungsmarkierungen annehmen, ablehnen, anzeigen/ausblenden

Beschreibung

Wenn viel mit unterschiedlichen Dokumentenversionen in Word gearbeitet wird, kommt es häufig vor, dass nur die Änderungen angezeigt werden sollen, die seit der letzten Version hinzugekommen sind. Die folgenden Makros sind in diesem Fall recht hilfreich.

Sollen alle Änderungen angenommen werden, damit nur noch die Änderungen seit der letzten Version in der neuen Version auftauchen, bietet sich das Makro ‚Alle Änderungen annehmen‘ an.
Wurden versehentlich Änderungen an einem Dokument durchgeführt und alle Änderungen in diesem Dokument sollen entfernt werden, kann das Makro ‚ Alle Änderungen ablehnen‘ verwendet werden.
Hin und wieder kann es vorkommen, dass die Bearbeitung eines Dokuments mit angezeigten Änderungsmarkierungen unübersichtlich wird. Um zwischen angezeigten und ausgeblendeten Änderungsmarkierungen umzuschalten, kann das Makro ‚Änderungsmarkierungen anzeigen/ausblenden‘ verwendet werden.

Sourcecode

Funktionsübersicht

Funktionen

Alle Änderungen annehmen

Public Sub AlleÄnderungenAnnehmen()
    ' Bei Fehlern wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet.
    On Error GoTo NoDocumentOpen

    ' Falls keine Datei geöffnet ist, wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet. Die Prüfung, ob eine Datei geöffnet ist, wird über die Länge des Dateinamens des aktiven Dokuments durchgeführt.
    If Len(ActiveDocument.Name) = 0 Then GoTo NoDocumentOpen

    ' Alle Änderungen annehmen
    WordBasic.AcceptAllChangesInDoc

NoDocumentOpen:
End Sub

Alle Änderungen ablehnen

Public Sub AlleÄnderungenAblehnen()
    ' Bei Fehlern wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet.
    On Error GoTo NoDocumentOpen

    ' Falls keine Datei geöffnet ist, wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet. Die Prüfung, ob eine Datei geöffnet ist, wird über die Länge des Dateinamens des aktiven Dokuments durchgeführt.
    If Len(ActiveDocument.Name) = 0 Then GoTo NoDocumentOpen

    ' Alle Änderungen ablehnen
    WordBasic.RejectAllChangesInDoc

NoDocumentOpen:
End Sub

Änderungsmarkierungen anzeigen/ausblenden

Public Sub ÄnderungsmarkierungenAnzeigen()
    ' Bei Fehlern wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet.
    On Error GoTo NoDocumentOpen

    ' Falls keine Datei geöffnet ist, wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet. Die Prüfung, ob eine Datei geöffnet ist, wird über die Länge des Dateinamens des aktiven Dokuments durchgeführt.
    If Len(ActiveDocument.Name) = 0 Then GoTo NoDocumentOpen

    ' Anzeigen der Änderungsmarkierungen invertieren
    WordBasic.ViewChanges

NoDocumentOpen:
End Sub