Word find colored text

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

В версиях MS Word, в которых используется лента, щелкните раскрывающееся меню значка «Найти», чтобы выбрать «Расширенный поиск».
В новом окне найдите кнопку «Ещё >>», а внизу есть метка «Найти» с опцией кнопки «Формат». Нажмите на него и выберите «Выделить» (хотя я еще не нашел, как установить цвет за это короткое время, я должен был ответить).

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

Принимая во внимание то, что указано в MSDN (https://msdn.microsoft.com/en-us/vba/word-vba/articles/find-object-word), можно получить следующую информацию:

НаходкаМетод Execute не имеет никакого отношения к выделению, так как сам по себе выделение не является форматом, как видно из названия, это просто выделение.

НаходкаСвойство Highlight допускает только обычные логические (True , False) и wdUndefined (игнорируя выделение цветом) и поэтому не позволяет указывать цвет.

НаходкаМетод HitHighLight применяется к объектам Outlook, но может использоваться в Word для поиска и удаления выделения (но опять же не для указания определенного цвета среди нескольких цветов), например,
ActiveDocument.Content.Find.HitHighlight FindText:="text to find"

С предыдущими утверждениями можно действительно найти (или, по крайней мере, для меня) невозможным найти разные цвета без сложного макроса, который сравнивает каждый символ с цветом подсветки по умолчанию (который я уверен, что не собираюсь делать …) или редактирование кода файла (на мой взгляд, это хорошее решение, так что спасибо пользователю, который его опубликовал, но, как пользователь, дал громоздкий ответ большинству пользователей Word). На мой взгляд, есть более подходящий и простой способ использования гораздо более удобного расширенного поиска с опцией « Стиль» .
Для этого вы должны использовать стиль с затенением вместо выделения (или комбинировать оба).

Таким образом, используя мои предыдущие инструкции, помимо опции « Подсветка» , вы также можете использовать опцию « Стиль» для поиска предыдущего добавленного стиля (стилей) с тем же цветом (цветами), которые вы хотите найти, или если вы предпочитаете затенение и выделение цветом. слова для более полного и узкого поиска.

Amir uses different highlighting colors throughout his documents. When he uses Find and Replace to find highlighted text, it treats all highlighting colors the same. Amir would like, specifically, to use Find and Replace to locate only text highlighted in yellow, having it ignore any other highlighting color used in the document.

Before getting into how to possibly do this, it is important to discuss terms for a moment. When using the term «highlighting color,» some people think that is referring to the color applied to some particular text; it is not. Highlighting doesn’t change the font’s color. Highlighting is accomplished by using the Text Highlight Color tool, which is available in the Font group on the Home tab of the ribbon. (See Figure 1.)

Figure 1. Word allows you to highlight text using different colors.

When you use the Find and Replace dialog box, you can specify that you want to search for text that is highlighted. (Put the insertion point in the Find box, click Format, then click Highlight.) When you click on Find Next, Word selects the next highlighted text, regardless of the color used to highlight that text. In other words, you cannot specify that you only want to find text highlighted in yellow or blue or green or any other color; it is all treated the same.

We haven’t been able to find any reliable way around this. Some information we’ve seen indicates that Word will only find whatever highlight color is specified in the Text Highlight Color tool, but this is not true. Other folks have indicated that if you select some highlighted text (that is highlighted with the color you want to find) before displaying the Find and Replace dialog box, only that highlight color will be found when you click Find Next. This, too, is not true. In all cases, Find Next will find any highlighted text, irrespective of color used for highlighting.

The only way around this is to use a macro to do the finding. VBA allows you to detect the color used to highlight text, which is why this approach will work. The following macro uses Find and Replace to do the finding, but then it checks to see what the HighlightColorIndex property is for what was found. If it is equal to wdYellow (an enumeration for the color yellow), then the text is selected and the macro is exited.

Sub FindNextYellow()
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = ""
        .MatchWildcards = False
        .Forward = True
        .Wrap = wdFindContinue
        .Highlight = True
        Do
            .Execute
        Loop Until Selection.Range.HighlightColorIndex = wdYellow _
          Or Not .Found
        Selection.Range.Select
    End With
End Sub

You can search for different colors simply by changing the wdYellow enumeration to the enumeration for whatever color you want.

Author Bio

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company. Learn more about Allen…

I know this is far outdated as a reply, but since more users could have a similar problem, this is my partial solution.

In versions of MS Word that use the Ribbon, click on the drop-down menu of the Find icon to choose the Advanced Find.
In the new window locate the «More>>» button and at the bottom, there is a label «Find» with an option button Format. Click on it and chose «Highlight» (though I have yet to find how to set the color in this short time I had to reply).

This edited answer is a more suitable workaround for something that apparently no one could answer so far, so I decided to keep the original answer (before the line above) as a reply to a question that fits most users that end up on this page (no point complicating what doesn’t need to be complicated), and elaborate on a new one.

Taking into account on what is stated in MSDN (https://msdn.microsoft.com/en-us/vba/word-vba/articles/find-object-word) one can retrieve the following information:

The Find.Execute method does not have any regards to highlight, as in itself highlight is not a format, as the name indicates, it’s just a highlight.

The Find.Highlight property only admits the normal Boolean (True, False) and wdUndefined (ignoring highlights), and as such doesn’t allow specifying a color.

The Find.HitHighLight method applies to Outlook objects but can be used in Word to find and remove highlight (but again not to specify a specific color among several colors), for example,
ActiveDocument.Content.Find.HitHighlight FindText:="text to find"

With the previous statements one can indeed find it impossible (or at least to me) to find different colors without a complex macro that compares each character to the default color of highlight (which I’m sure not going to make…) or editing the file code (which is a good solution, in my view, so kudos for the user that posted it, but as the user stated a cumbersome answer to most users of Word). In my opinion, there’s a more suitable and easy workaround using the far easier to use Advanced Find with the Style option.
For that you have to use a Style with Shading instead of the highlight (or combining both).

So using my previous instructions, besides the Highlight option,
you can also use the Style option to search for a previous added style(s) with the same color(s) you want to find, or if you prefer a shading color and a highlight of the word for a more complete and narrowed search.