Bei der Suche nach Text in einem Dokument ist es einfach, nach Formaten wie „Fett“ oder „Kursiv“ zu suchen. Sie können auch nach „nicht fett“ und „nicht kursiv“ suchen. Sie können nach Text einer bestimmten Farbe suchen, in Word können Sie jedoch nicht nach einem anderen Text als einer bestimmten Farbe suchen. Beispielsweise können Sie nicht nach Text suchen, der „nicht schwarz“ ist.

Wenn Sie nach Text suchen müssen, der nicht schwarz ist, können Sie dies am besten mit einem Makro tun. Betrachten Sie das folgende Makro, das Sie zur Eingabe Ihres Suchtextes auffordert und dann nach der ersten nicht schwarzen Instanz dieses Textes sucht.

Sub FindNotBlack()

With Selection.Find         .ClearFormatting         .Text = InputBox(prompt:="Enter the search text.", _           Title:="Find Nonblack Text")

Do While .Execute             With Selection.Font                 If (.Color <> wdColorAutomatic) And _                   (.Color <> wdColorBlack) Then                     MsgBox "Found"

Exit Sub                 End If             End With         Loop     End With End Sub

Beachten Sie, dass das Makro prüft, ob sich die Farbe des übereinstimmenden Textes von Schwarz (wdColorBlack) und von der automatischen Farbe (wdColorAutomatic) unterscheidet. Dies liegt daran, dass die automatische Farbe auf den meisten Systemen schwarz ist.

_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 (1387) 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:

Suche nach nicht schwarzem Text.