При поиске текста в документе легко искать такие форматы, как «полужирный» или «курсив». Вы также можете выполнить поиск по словам «не полужирный» и «не курсив». Вы можете искать текст определенного цвета, но Word не позволяет вам искать текст, отличный от определенного цвета. Например, вы не можете искать «не черный» текст.

Если вам нужно найти текст, который не черный, то лучший способ сделать это — использовать макрос. Рассмотрим следующий макрос, который предлагает вам ввести текст для поиска, а затем ищет первый не черный экземпляр этого текста.

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

Обратите внимание, что макрос проверяет, отличается ли цвет совпадающего текста от черного (wdColorBlack) и от автоматического цвета (wdColorAutomatic). Это связано с тем, что в большинстве систем автоматически устанавливается черный цвет.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (11644) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Searching_for_Non-Black_Text [Поиск не черного текста].