2 корисні методи заміни кольорів виділення у вашому документі Word

У цій статті ми раді показати вам 2 корисні методи заміни кольору виділення у вашому документі Word.

Іноді ви можете виділити різний вміст різними кольорами. Але на відміну від кольору шрифту, ви не можете використовувати «Знайти та замінити», щоб знайти тексти в певному виділеному кольорі та замінити його іншим.

Тому нам знадобляться деякі обхідні шляхи. Нижче наведено 2 способи, доступні для різних випадків.

Спосіб 1: Замініть усі кольори виділення на однакові

Колір виділення, пов'язаний з діалоговим вікном "Знайти та замінити", є поточним, вибраним у піктограмі "Виділити".

1. Перш за все, на вкладці «Домашня сторінка» та в групі «Шрифт» натисніть кнопку спадного меню за командою «Колір виділення тексту». Виберіть колір, на який ви хочете змінити всі виділені кольори. Наприклад, тут ми вибираємо “Яскраво-зелений”.
2. Потім натисніть “Ctrl + H”, щоб запустити діалогове вікно “Знайти та замінити”.
3. Помістіть курсор всередину текстового поля "Знайти що".
4. Натисніть “Більше”, щоб відкрити більше опцій, і натисніть “Формат”.
5. І виберіть «Виділити».
6. Потім поставте курсор у поле «Замінити на» та повторіть кроки 4 та 5.
7. Нарешті, натисніть «Замінити все».

Тепер ви замінили всі кольори мелірування яскраво-зеленим.

Спосіб 2: Замініть певний колір виділення іншим

Для виконання цього завдання потрібен макрос.

1. Перш за все, натисніть «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” у полі “Вкажіть колір виділення” та натискаємо “OK”.
10. Потім у полі “New Highlight Color” введіть значення нового кольору та натисніть “OK”.

Ось можливий результат заміни жовтого на яскраво-зелений.

Уникайте стихійного лиха

Слово є таким чудовим помічником у нашій щоденній роботі. Тому не важко уявити катастрофу, яку вона може спричинити, коли вона зруйнується. Щоб уникнути втрати важливих даних, ви можете отримати Виправлення слів інструмент заздалегідь. Маючи під рукою таку утиліту, вам не слід турбуватися про втрату даних.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі корумпований xlsx та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com