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("Specify a color (enter the value):", "Specify Highlight Color")
  strReplaceColor = InputBox("Specify a new color (enter the value):", "New Highlight Color")
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
 
      Do While .Execute
        If Selection.Range.HighlightColorIndex = strFindColor Then
          Set 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