Word найти текст определенного цвета - Word и Excel - помощь в работе с программами

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

В версиях 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). На мой взгляд, есть более подходящий и простой способ использования гораздо более удобного расширенного поиска с опцией « Стиль» .
Для этого вы должны использовать стиль с затенением вместо выделения (или комбинировать оба).

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

Источник

Эта статья предназначена для людей с нарушениями зрения или с когнитивными нарушениями, использующих программы чтения с экрана, например Экранный диктор корпорации Microsoft, JAWS или NVDA с продуктами Microsoft 365. Эта статья входит в набор содержимого поддержки средства чтения с экрана Microsoft 365, где содержатся дополнительные сведения о специальных возможностях в наших приложениях. Общие справочные сведения доступны на главной странице службы поддержки Майкрософт.

Используйте Word с клавиатурой и средством чтения с экрана, чтобы узнать, где в документе используется определенный стиль текста или форматирование, и заменить его другим. Мы проверили эту функцию с помощью экранного диктора, но она может работать и с другими средствами чтения с экрана, если они соответствуют общепринятым стандартам и методам для специальных возможностей.

Примечания:

Новые возможности Microsoft 365 становятся доступны подписчикам Microsoft 365 по мере выхода, поэтому в вашем приложении эти возможности пока могут отсутствовать. Чтобы узнать о том, как можно быстрее получать новые возможности, станьте участником программы предварительной оценки Office.
Дополнительные сведения о средствах чтения с экрана см. в статье О работе средств чтения с экрана в Microsoft 365.

В этом разделе

Поиск определенного стиля
Поиск определенного форматирования

Поиск определенного стиля

Иногда требуется найти все вхождения определенного стиля текста в документе, например Строгий или Акцент, чтобы можно было заменить его другим.

Нажмите клавиши CTRL+F. Вы услышите фразу «Навигация, Поиск в документе».
Нажимайте клавишу SR+СТРЕЛКА ВПРАВО, пока не услышите фразу «Дополнительные параметры, свернуто, пункт меню», нажимайте клавиши ALT+СТРЕЛКА ВНИЗ, чтобы развернуть меню, а затем нажмите клавишу A, чтобы открыть диалоговое окно Расширенный поиск . Вы услышите сообщение «Окно поиска и замены, расширенный элемент управления редактированием, редактирование». Фокус находится на поле Найти текст .

Совет:
Word запоминает параметры Поиска, которые вы в последний раз использовали в диалоговом окне Расширенный поиск , например, если вы искали стиль Strong и заменили его акцентом. Чтобы сбросить параметры Поиска перед новым поиском, нажмите клавиши ALT+O, нажмите клавиши ALT+СТРЕЛКА ВВЕРХ, а затем нажмите клавиши ALT+T, чтобы выбрать пункт Нет форматирования. Фокус возвращается в поле Найти текст .
Нажмите клавиши ALT+O, S, чтобы открыть диалоговое окно Поиск стиля . Прозвучит фраза «Окно «Поиск стиля», «Поиск стиля, ни стиля, ни выбранного».
Нажимайте клавишу СТРЕЛКА ВНИЗ, пока экранный диктор не произнесет стиль, который вы хотите заменить, например «Акцент», а затем нажмите клавишу ВВОД, чтобы выбрать.

Совет: Вы можете перейти непосредственно к стилю, нажав первую букву. Например, нажмите клавишу E , чтобы перейти к выделению. Если есть несколько стилей, которые начинаются с выбранной буквы, нажимайте клавишу несколько раз, пока экранный диктор не произнесет нужный стиль.
Нажмите клавиши ALT+P, чтобы переместить фокус на вкладку Заменить . Прозвучит сообщение «Выбрано, заменить элемент вкладки». Нажимайте клавишу TAB, пока не услышите фразу «Заменить на, изменить текст».

Совет:
Word запоминает параметры замены, которые вы в последний раз использовали в диалоговом окне Расширенный поиск , например, если вы искали строгий стиль и заменили его акцентом. Чтобы сбросить параметры Заменить перед новым поиском, нажмите клавиши ALT+O, клавиши ALT+СТРЕЛКА ВВЕРХ, а затем нажмите клавиши ALT+T, чтобы выбрать вариант Без форматирования. Фокус возвращается в поле Заменить текстом .
Нажмите клавиши ALT+O, S, чтобы открыть диалоговое окно Поиск стиля . Прозвучит фраза «Окно «Поиск стиля», «Поиск стиля, ни стиля, ни выбранного».
Нажимайте клавишу СТРЕЛКА ВНИЗ, пока экранный диктор не произнесет стиль, который вы хотите использовать, например «Акцент», а затем нажмите клавишу ВВОД, чтобы выбрать.

Совет: Вы можете перейти непосредственно к стилю, нажав первую букву. Например, нажмите клавишу E , чтобы перейти к выделению. Если есть несколько стилей, которые начинаются с выбранной буквы, нажимайте клавишу несколько раз, пока экранный диктор не произнесет нужный стиль.
Нажмите клавиши ALT+A, чтобы заменить все вхождения первого стиля вторым. Прозвучит сообщение «Майкрософт диалоговое окно Word, кнопка ОК». Нажмите клавишу ВВОД, ESC, чтобы закрыть диалоговое окно Расширенный поиск и вернуть фокус на документ.

Поиск определенного форматирования

Иногда требуется найти все вхождения определенного форматирования текста в документе, например полужирный или курсивный, чтобы заменить его другим.

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

Нажмите клавиши CTRL+F. Вы услышите фразу «Навигация, Поиск в документе».
Нажимайте клавишу SR+СТРЕЛКА ВПРАВО, пока не услышите фразу «Дополнительные параметры, свернуто, пункт меню», нажимайте клавиши ALT+СТРЕЛКА ВНИЗ, чтобы развернуть меню, а затем нажмите клавишу A, чтобы открыть диалоговое окно Расширенный поиск . Вы услышите сообщение «Окно поиска и замены, расширенный элемент управления редактированием, редактирование». Фокус находится на поле Найти текст .

Совет:
Word запоминает параметры поиска, которые вы в последний раз использовали в диалоговом окне Расширенное поиск , например, если вы искали полужирное форматирование и заменили его курсивом. Чтобы сбросить параметры Поиска перед новым поиском, нажмите клавиши ALT+O, нажмите клавиши ALT+СТРЕЛКА ВВЕРХ, а затем нажмите клавиши ALT+T, чтобы выбрать пункт Нет форматирования. Фокус возвращается в поле Найти текст .
Нажмите клавиши ALT+O, F, чтобы открыть диалоговое окно Поиск шрифта . Вы услышите фразу «Найти окно шрифта, шрифт, редактирование текста».
Нажмите клавиши ALT+Y, чтобы переместить фокус в меню Стиль шрифта , нажимайте клавишу СТРЕЛКА ВНИЗ, пока экранный диктор не произнесет стиль шрифта, который вы хотите заменить, например «Полужирный», а затем нажмите клавишу ВВОД, чтобы выбрать.
Нажмите клавиши ALT+P, чтобы переместить фокус на вкладку Заменить . Прозвучит сообщение «Выбрано, заменить элемент вкладки». Нажимайте клавишу TAB, пока не услышите фразу «Заменить на, изменить текст».

Совет:
Word запоминает параметры замены, которые вы использовали в диалоговом окне Расширенный поиск , например, если вы искали полужирное форматирование и заменили его курсивом. Чтобы сбросить параметры Заменить перед новым поиском, нажмите клавиши ALT+O, клавиши ALT+СТРЕЛКА ВВЕРХ, а затем нажмите клавиши ALT+T, чтобы выбрать вариант Без форматирования. Фокус возвращается в поле Заменить текстом .
Нажмите клавиши ALT+O, F, чтобы открыть диалоговое окно Поиск шрифта . Вы услышите фразу «Найти окно шрифта, шрифт, редактирование текста».
Нажмите клавиши ALT+Y, чтобы переместить фокус в меню Стиль шрифта , нажимайте клавишу СТРЕЛКА ВНИЗ, пока экранный диктор не произнесет стиль шрифта, который вы хотите использовать, например «Обычный», а затем нажмите клавишу ВВОД для выбора.
Нажмите клавиши ALT+A, чтобы заменить все вхождения первого стиля шрифта вторым. Прозвучит сообщение «Майкрософт диалоговое окно Word, кнопка ОК». Нажмите клавишу ВВОД, ESC, чтобы закрыть диалоговое окно Расширенный поиск и вернуть фокус на документ.

Дополнительные сведения

Вставка и изменение текста в Word с помощью средства чтения с экрана

Сочетания клавиш в Word

Выполнение основных задач в Word с помощью средства чтения с экрана

Настройка устройства для поддержки специальных возможностей в Microsoft 365

Знакомство с Word и навигация с помощью средства чтения с экрана

Техническая поддержка пользователей с ограниченными возможностями

Корпорация Майкрософт стремится к тому, чтобы все наши клиенты получали наилучшие продукты и обслуживание. Если у вас ограниченные возможности или вас интересуют вопросы, связанные со специальными возможностями, обратитесь в службу Microsoft Disability Answer Desk для получения технической поддержки. Специалисты Microsoft Disability Answer Desk знакомы со многими популярными специальными возможностями и могут оказывать поддержку на английском, испанском, французском языках, а также на американском жестовом языке. Перейдите на сайт Microsoft Disability Answer Desk, чтобы узнать контактные сведения для вашего региона.

Если вы представитель государственного учреждения или коммерческой организации, обратитесь в службу Disability Answer Desk для предприятий.

Источник

How is it possible (or is it possible at all) in MS «Word» to find with the finder all the symbols that are highlighted with one specific color?

For example, here I have this text:

If I need to find all occurrences of the word «one» in it I can easily do that by entering «one» in the finder:

But what if I have some words already highlighted in the text, say, in turquoise?:

How is it possible then to find all those turquoise words in text?

asked Jan 1, 2020 at 1:13

Using build-in Find and Replace feature can’t help us find text using a specific highlighting color.

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.

Reference:Finding Text Using a Specific Highlighting Color by Allen Wyatt

answered Jan 2, 2020 at 9:49

You can’t search for a specific color, but Word does offer a find Highlight option. You click the drop arrow next to the magnifying glass and choose Advanced Find .... Click the Format button and click Highlight. You can then click the Find Next button to move through the results.

answered Jan 1, 2020 at 1:30

BeanerBeaner

3,5611 gold badge19 silver badges16 bronze badges

Источник

73 / 0 / 0

Регистрация: 16.01.2014

Сообщений: 27

10.08.2014, 21:51. Показов 9867. Ответов 3

Доброго времени суток!
Можно ли программно(макросом) найти в документе WORD произвольные фрагменты текста выделенные заливкой конкретным цветом, например- желтым и затем удалить ее?

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

10.08.2014, 21:51

Ответы с готовыми решениями:

Поиск в документах Word
Пример следующий:
в документе есть блоки текста и имеются заголовки данных блоков.
Задача такая…

Поиск в документах MS Word
Через день защита бакалавра. В программе требеутся осуществление
поиска в документах MSWord. Как…

Поиск в документах Word
Здравствуйте.

Имеет список папок, внутри word-документы. Необходимо реализовать поиск по слову…

Поиск текста в документах Word
Есть код ВБА. Он работает .. нигде не могу найти команды!!!! Может кто-то поможет ….Код для…

5942 / 3154 / 698

Регистрация: 23.11.2010

Сообщений: 10,524

10.08.2014, 22:27

Если в тексте выделено только одним цветом и удалить только этот текст, то можно штатным Найти/Заменить.
Найти — Больше — Формат — Выделение цветом
Заменить — оставить пустым — Заменить все

73 / 0 / 0

Регистрация: 16.01.2014

Сообщений: 27

11.08.2014, 12:48

[ТС]

—>Fairuza
Текст удалять НЕ НАДО, только ЗАЛИВКУ!!!

5942 / 3154 / 698

Регистрация: 23.11.2010

Сообщений: 10,524

11.08.2014, 14:02

Выделить все — Заливка — Нет

Источник

Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.

Найти и выделить текст цветом

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Сообщений [ 10 ]

1 03.07.2011 18:03:38

vikky
рядовой
Неактивен

Зарегистрирован: 03.07.2011
Сообщений: 4

Тема: Найти и выделить текст цветом

Как можно найти текст и выделить его определенным цветом?
Запускаю «Поиск», задаю текст, нажимаю «Выделение при чтении» — «Выжелить все», текст выделяется, но потом цвет слетает, а мне надо его сохранить.
Можно конечно через кнопку «найти в основном документе», фрагмент выделяется по всему тексту и щелкаю по палитре. Но при этом, если текст большой, то при нажатии на кнопку я улетаю на другую страницу и потом приходится искать слово с которого начинался поиск, а это очень не удобно.

2 Ответ от Nikodim 04.07.2011 09:10:05

Nikodim
майор
Неактивен

Зарегистрирован: 27.06.2011
Сообщений: 87
Поблагодарили: 21
За сообщение: 1

Re: Найти и выделить текст цветом

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

можно разделить окно и не заходя в панель инструментов, просто щелкнув два раза ЛКМ в правом верхнем углу листа над полосой вертикальной линейки

3 Ответ от vikky 04.07.2011 19:12:09

vikky
рядовой
Неактивен

Зарегистрирован: 03.07.2011
Сообщений: 4

Re: Найти и выделить текст цветом

Nikodim пишет:

окно -> разделить

Спасибо:) Ваш совет помог:)

4 Ответ от Настаев 15.07.2011 00:54:27

Настаев
подполковник
Неактивен

Зарегистрирован: 14.07.2011
Сообщений: 176
Поблагодарили: 54

Re: Найти и выделить текст цветом

Могу предложить решение с помощью макроса

5 Ответ от vikky 16.07.2011 16:35:46

vikky
рядовой
Неактивен

Зарегистрирован: 03.07.2011
Сообщений: 4

Re: Найти и выделить текст цветом

Настаев пишет:

Могу предложить решение с помощью макроса

буду благодарна

6 Ответ от Настаев 16.07.2011 17:01:22

Настаев
подполковник
Неактивен

Зарегистрирован: 14.07.2011
Сообщений: 176
Поблагодарили: 54

Re: Найти и выделить текст цветом

    Sub Покрасить_с_подстановочными_знаками(ByVal что As String)
        'Запуская этот макрос из другого макроса, ему можно передать атрибут "что". Это очень удобно для поиска и замены разных слов и словосочетаний.

        'сбить выделение, чтобы макрос распространялся на весь документ
        Application.Selection.MoveLeft(Unit:=WdUnits.wdCharacter, Count:=1)

        'очистить формат поиска и замены
        Application.Selection.Find.ClearFormatting()
        Application.Selection.Find.Replacement.ClearFormatting()

        'настроить формат замены (используестя последний использованный цвет подсветки)
        Application.Selection.Find.Replacement.Highlight = True

        'параметры поиска
        With Application.Selection.Find
            .Text = что
            .Replacement.Text = "" 'в данном случае текст не будет удаляться или заменяться ничем. К нему будет применён формат поиска
            .Forward = True '
            .Wrap = WdFindWrap.wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
        End With

        'выполнить
        Application.Selection.Find.Execute(Replace:=WdReplace.wdReplaceAll)

    End Sub

7 Ответ от Framell 16.07.2011 17:27:43

Framell
сержант
Неактивен

Откуда: Москва, Россия
Зарегистрирован: 11.03.2011
Сообщений: 27
Поблагодарили: 3

Re: Найти и выделить текст цветом

vikky пишет:

Как можно найти текст и выделить его определенным цветом?

Для таких целей используется команда Заменить (Replace), в которой нужно указать поиск и замену по формату (кнопка Формат в диалоговом окне)

В нашей стране чтобы быть бедным надо очень долго и хорошо учиться.

8 Ответ от Настаев 16.07.2011 17:59:12

Настаев
подполковник
Неактивен

Зарегистрирован: 14.07.2011
Сообщений: 176
Поблагодарили: 54

Re: Найти и выделить текст цветом

Напишите рядом с этим макросом другой макрос для его запуска с атрибутом искомого текста (то, чтобы вы писали в дислоговом окне «Найти»)

Например:

Sub Подсветка

   'подсветка скобок
   Покрасить_с_подстановочными_знаками("[()]") 'в кавычках передаётся строковый параметр - искомый текст

   'подсветка знака номер
   Покрасить_с_подстановочными_знаками("№") 

End sub

Запустив макрос «Подсветка» вы получите подсвеченные скобки и знак № во всём документе
Думаю, нетрудно сделать другой похожий макрос, только для подсветки без подстановочных знаков.
Лучше этого способа Вы не найдёте. Только не забудьте самом первом макросе (тот, который будет запускаться первым) вписать строку «Application.ScreenUpdating = false». Это действие отключит смену экрана пока будет выполнятся работа VBA. Иначе макросы выполняются долго.

9 Ответ от vikky 22.07.2011 17:34:34

vikky
рядовой
Неактивен

Зарегистрирован: 03.07.2011
Сообщений: 4

Re: Найти и выделить текст цветом

А можно создать макрос по следующей схеме?

Есть большой документ, в нем много номеров телефонов, необходимо сделать выборку.
Найти текст не выделенный цветом «89*********» или «8_9*********» (где * — какая-то цифра).
Запомнить.
Найти этот текст по всему документу.
Если одинаковых объектов больше 3, то выделить одним цветом, если меньше или равно трем, то выделить другим цветом.
Повторять условие пока ничего не найдет. В конце все телефоны станут раскрашены в два цвета.

10 Ответ от Настаев 29.07.2011 14:53:12

Настаев
подполковник
Неактивен

Зарегистрирован: 14.07.2011
Сообщений: 176
Поблагодарили: 54

Re: Найти и выделить текст цветом

Это можно. Но удобнее использовать базу данных для таких выборок.
Если же Вы хотите поиграться с этим, могу дать макрос, который я однажды написал, отвечая на подобную тему. Он ищет слова в тексте, которые встречаются в каждом предложении документа. Поняв основные принципы, Вы сможете сами написать нужный Вам макрос.

Sub Одинаковые_слова()
 
    Dim j As Object
    
    'отключение смены экрана (чтобы не моргало во время выполнения макроса)
    Application.ScreenUpdating = False
    
    'для каждого слов в тексте
    For Each j In ActiveDocument.Words
    
        'если слово есть во всех предложениях
        If проверка(j.Text) Then
        
            'сделать красным
            j.Font.Color = WdColor.wdColorDarkRed
                    
        End If
        
    Next
    
    'сообщить о завершении выполнения
    MsgBox "Готово"
    
End Sub
Function проверка(ByRef слово As String) As Boolean
 
    Dim j As Object
    
    'для каждого предложения в тексте
    For Each j In ActiveDocument.Sentences
    
        'если слова нет в этом предложении (учитывается регистр)
        If InStr(j, слово) = 0 Then
        
            'выход из функции (будет возвращён отрицательный результат)
            Exit Function
        
        End If
        
    Next j
    
    'возврат положительного результата
    проверка = True
    
End Function

Сообщений [ 10 ]

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

В этом разделе

Поиск определенного стиля

Поиск определенного форматирования

Дополнительные сведения

Техническая поддержка пользователей с ограниченными возможностями

Найти и выделить текст цветом

Сообщений [ 10 ]

1 03.07.2011 18:03:38

Тема: Найти и выделить текст цветом

2 Ответ от Nikodim 04.07.2011 09:10:05

Re: Найти и выделить текст цветом

3 Ответ от vikky 04.07.2011 19:12:09

Re: Найти и выделить текст цветом

4 Ответ от Настаев 15.07.2011 00:54:27

Re: Найти и выделить текст цветом

5 Ответ от vikky 16.07.2011 16:35:46

Re: Найти и выделить текст цветом

6 Ответ от Настаев 16.07.2011 17:01:22

Re: Найти и выделить текст цветом

7 Ответ от Framell 16.07.2011 17:27:43

Re: Найти и выделить текст цветом

8 Ответ от Настаев 16.07.2011 17:59:12

Re: Найти и выделить текст цветом

9 Ответ от vikky 22.07.2011 17:34:34

Re: Найти и выделить текст цветом

10 Ответ от Настаев 29.07.2011 14:53:12

Re: Найти и выделить текст цветом

Сообщений [ 10 ]

Похожие темы