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 (11644) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier:

Suche nach nicht schwarzem Text.