Sam hat ein Dokument, das einige Tabellen enthält, in denen er einige Zeilen löschen möchte. Die Zeilen enthalten bestimmten Text, den er sicherlich mit Suchen und Ersetzen löschen kann, aber er möchte die gesamten Zeilen löschen, die diesen Text enthalten.

Es gibt keine Möglichkeit, dies mit den normalen Funktionen zum Suchen und Ersetzen von Word zu tun (Zeilen löschen). Stattdessen müssen Sie ein Makro verwenden, das den Text findet und dann die gesamte Zeile löscht. Hier ist ein relativ einfaches Makro, das die Arbeit erledigt:

Sub DeleteRowWithSpecifiedText()

Dim sText As String

sText = InputBox("Enter text for Row to be deleted")

Selection.Find.ClearFormatting     With Selection.Find         .Text = sText         .Wrap = wdFindContinue     End With     Do While Selection.Find.Execute         If Selection.Information(wdWithInTable) Then             Selection.Rows.Delete         End If     Loop End Sub

Dieses Makro zeigt zuerst ein Eingabefeld an, in dem der Benutzer aufgefordert wird, den zu suchenden Text anzugeben. Anschließend wird nach allen Instanzen dieses Textes gesucht. Wenn eine Instanz gefunden wird, wird die Auswahl überprüft, um sicherzustellen, dass sie sich in einer Tabelle befindet. Wenn dies der Fall ist, wird die gesamte Zeile gelöscht und das Makro fährt mit dem nächsten Vorkommen fort.

_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 (3838) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Zeilen suchen und löschen.