Thomas hat ein großes Dokument mit Elementen, die entfernt werden sollten, bevor das Dokument für andere veröffentlicht wird. Die Teile des Dokuments, die entfernt werden müssen, wurden ausgewählt und mit einem Kommentar markiert, der besagt, dass es vor der Veröffentlichung entfernt werden sollte. Thomas möchte schnell den gesamten auf diese Weise kommentierten Text finden, ersetzen und löschen.

Mit Suchen und Ersetzen kann er nur die Kommentare finden. Er hat weder eine Möglichkeit gefunden, herauszufinden, ob der Kommentar ein Indikator dafür ist, dass der Text gelöscht werden sollte, noch hat er herausgefunden, wie der tatsächlich hervorgehobene Dokumenttext gelöscht werden kann.

Dies klingt nach einer ziemlich komplizierten Aufgabe, da sie viele Schritte umfasst. Sie müssen einen Kommentar finden, Sie müssen den Hauptteil des Kommentars überprüfen, um festzustellen, ob er Ihrem gewünschten Wortlaut entspricht, Sie müssen den kommentierten Text im Hauptteil des Dokuments löschen und dann müssen Sie den Kommentar selbst löschen. Dies ist ein Job für ein Makro.

Glücklicherweise sind alle Kommentare in einem Dokument über die Gruppe „Kommentare“ mit VBA zugänglich. Sie können jeden Kommentar durchgehen und prüfen, ob er den „Auslösetext“ enthält, um anzugeben, dass der Kommentar (und der Text, auf den er verweist) gelöscht werden soll. Wenn der Kommentartext im folgenden Beispiel die Wörter „dies löschen“ an einer beliebigen Stelle im Kommentar enthält, dient dies als Auslöser.

Sub DeleteCommentsBaseText()

Dim c As Comment For Each c In ActiveDocument.Comments     If LCase(Trim(c.Range.Text)) Like "delete this" Then         c.Scope.Delete         c.DeleteRecursively     End If Next c End Sub

Wenn sich die Auslösewörter im Kommentar befinden, wird die Scope-Eigenschaft gelöscht. Diese Eigenschaft gibt den Dokumenttext an, der beim Erstellen des Kommentars ausgewählt wurde. Die DeleteRecursively-Methode wird dann verwendet, um den tatsächlichen Kommentar zu löschen. (Die DeleteRecursively-Methode wurde in Word 2013 hinzugefügt. In früheren Versionen sollten Sie stattdessen die Delete-Methode verwenden.)

Verstehen Sie, dass das Makro beim Ausführen sehr schnell ist und Änderungen nicht rückgängig gemacht werden können. Wenn Sie stattdessen etwas mehr Kontrolle darüber haben möchten, welche Kommentare und Texte gelöscht werden, sollten Sie Ihren Workflow überdenken. Wenn Sie Änderungen verfolgen verwenden, kann jeder, der den Kommentar platziert, auch den Dokumenttext zum Löschen markieren. Bevor Sie das Dokument fertigstellen, können Sie Änderungen nachverfolgen deaktivieren und jede Änderung schrittweise durchlaufen, um festzustellen, ob sie akzeptiert werden soll oder nicht. Es ist nicht annähernd so schnell wie das obige Makro, bietet Ihnen jedoch eine bessere Kontrolle.

_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.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (2490) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365.