2 полезных метода замены цвета выделения в документе Word

В этой статье мы рады показать вам 2 полезных метода замены цвета выделения в документе Word.

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

Поэтому нам понадобятся некоторые обходные пути. Ниже приведены 2 способа, доступные для разных случаев.

Способ 1: заменить все цвета выделения одним и тем же

Цвет выделения, связанный с диалоговым окном «Найти и заменить», является текущим цветом, выбранным на значке выделения.

1. Прежде всего, на вкладке «Главная» и в группе «Шрифт» нажмите кнопку раскрывающегося списка в команде «Цвет выделения текста». Выберите цвет, на который вы хотите изменить все цвета выделения. Например, здесь мы выбираем «Ярко-зеленый».
2. Затем нажмите «Ctrl + H», чтобы вызвать диалоговое окно «Найти и заменить».
3. Поместите курсор в текстовое поле «Найти что».
4. Нажмите «Дополнительно», чтобы открыть дополнительные параметры, и нажмите «Формат».
5. И выберите «Выделить».
6. Затем поместите курсор в поле «Заменить на» и повторите шаги 4 и 5.
7. Наконец, нажмите «Заменить все».

Теперь вы заменили все цвета выделения на ярко-зеленый.

Способ 2: заменить определенный цвет выделения другим

Для выполнения этой задачи требуется макрос.

1. Первый и первыйost, нажмите «Alt + F11», чтобы открыть редактор VBA.
2. Затем нажмите «Обычный» проект в левом столбце.
3. Затем нажмите вкладку «Вставить» в строке меню.
4. И выберите «Модуль» в этом раскрывающемся меню.
5. Откройте новый модуль двойным щелчком мыши.
6. Теперь вставьте следующие коды:

Sub ReplaceOneHighlightColorToAnother() Dim strFindColor As String Dim strReplaceColor As String Dim objDoc As Document Dim objRange As Range Application.ScreenUpdating = False Set objDoc = ActiveDocument strFindColor = InputBox("Укажите цвет (введите значение):", "Укажите цвет выделения" ) strReplaceColor = InputBox("Укажите новый цвет (введите значение):", "Новый цвет выделения") With Selection .HomeKey Unit:=wdStory With Selection.Find .Highlight = True Do While .Execute If Selection.Range.HighlightColorIndex = strFindColor, затем установите objRange = Selection.Range objRange.HighlightColorIndex = strReplaceColor Selection.Collapse wdCollapseEnd End If Loop End With End With Application.ScreenUpdating = True End Sub

7. Затем нажмите кнопку «Выполнить» или нажмите «F5».
8. Затем в поле «Укажите цвет выделения» введите значение, представляющее цвет, который необходимо заменить. Чтобы получить соответствующее значение определенного цвета, вы можете перейти по этой ссылке: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
9. Например, если мы хотим заменить желтый цвет ярко-зеленым, мы вводим «7» в поле «Указать цвет выделения» и нажимаем «ОК».
10. Затем в поле «Новый цвет выделения» введите значение нового цвета и нажмите «ОК».

Вот возможный результат замены желтого на ярко-зеленый.

Избегайте катастрофы с потерей данных

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

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный xlsx и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com