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