Benachrichtigung über nachverfolgte Änderungen beim Öffnen (Microsoft Word)
Robin sucht nach einer Möglichkeit, Benutzer beim Öffnen eines Dokuments darüber zu informieren, ob nachverfolgte Änderungen im Dokument vorhanden sind. Dies ist keine Standardfunktion von Word, kann jedoch mit einem AutoOpen-Makro problemlos hinzugefügt werden. Wenn das Makro lediglich anzeigen soll, ob Änderungen verfolgen aktiviert ist, können Sie Folgendes verwenden:
Sub AutoOpen() If ActiveDocument.TrackRevisions = True Then MsgBox "Track Changes is On." End If End Sub
Beachten Sie, dass dieses Makro Sie nicht darüber informiert, ob tatsächlich Änderungen im Dokument vorhanden sind. Daher hilft es nicht, wenn Änderungen deaktiviert sind, aber noch nicht aufgelöste Änderungen aus einer vorherigen Bearbeitungssitzung vorhanden sind. In diesem Fall müssen Sie das Makro leicht erweitern.
Sub AutoOpen() On Error Resume Next If ActiveDocument.TrackRevisions = True Then MsgBox "Track Changes is On" With ActiveWindow.View .ShowRevisionsAndComments = True .RevisionsView = wdRevisionsViewFinal End With Exit Sub End If If ActiveDocument.Revisions.Count > 0 Then MsgBox "Document contains revisions" With ActiveWindow.View .ShowRevisionsAndComments = True .RevisionsView = wdRevisionsViewFinal End With Exit Sub End If End Sub
Diese Version des Makros überprüft zwei Bedingungen: Anzeigen eines Meldungsfelds, wenn Änderungen verfolgen aktiviert ist, und Anzeigen eines Meldungsfelds, wenn Änderungen im Dokument vorhanden sind. In beiden Fällen ändert das Makro auch die Ansicht des Dokuments, sodass Änderungen auf dem Bildschirm angezeigt werden.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.
(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (409) gilt für Microsoft Word 2000, 2002 und 2003.
Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007 und höher) finden Sie hier: