Heidi hat fünfzehn Dokumente, die jeweils hauptsächlich aus einem langen Tisch bestehen.

Sie muss ein Makro erstellen, um zeilenweise zu suchen und irgendwie jede Zeile hervorzuheben (entweder durch Schattieren, Fettdruck, Ändern der Schriftart usw.), die nirgendwo in der Zeile ein Klammerzeichen enthält. Alternativ kann sie auch Zeilen hervorheben, die ein Klammerzeichen enthalten. Sie muss lediglich in der Lage sein, zwischen Zeilen, die dies tun, und Zeilen, die dies nicht tun, zu unterscheiden.

Es gibt viele Möglichkeiten, wie ein solches Makro angegangen werden kann, aber eine, die nach einer öffnenden oder schließenden Klammer sucht, ist relativ einfach. Im folgenden Beispiel wird die Suche zeilenweise durchgeführt. Wenn eines der beiden Zeichen gefunden wird, wird die Zeile hervorgehoben, indem der Hintergrund gelb dargestellt wird.

Sub HilightRows()

Dim TargetText1 As String     Dim TargetText As String     Dim oRow As Row     Dim iCol As Integer

'initialize the target characters to find     TargetText = "("

TargetText1 = ")"



'Make sure we're in a table     If Selection.Information(wdWithInTable) Then         'Clear all the old shading         Selection.Tables(1).Shading.BackgroundPatternColor = wdColorWhite         'do all the rows         For Each oRow In Selection.Tables(1).Rows             If InStr(oRow.Range.Text, TargetText) > 0 Then _               oRow.Shading.BackgroundPatternColor = wdColorYellow             If InStr(oRow.Range.Text, TargetText1) > 0 Then _               oRow.Shading.BackgroundPatternColor = wdColorYellow         Next oRow     End If End Sub

_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 weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (568) 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: