Як видалити певний колір виділення з документа Word

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

В одній з наших попередніх статей ми вже говорили про способи видалення виділених кольорів. Для отримання детальної інформації ви можете звернутися за цим посиланням: 5 методів видалення виділення або затінення у вашому документі Word

Сьогодні давайте розглянемо інший випадок, коли документ може містити кілька кольорів виділення, щоб виділяти різні типи вмісту. У такому випадку звичайними способами не вдається розпізнати один конкретний колір виділення. Насправді єдиним швидким та ефективним способом є запуск макросу Word.

А тепер погляньте на підхід, що піднімається.

Видаліть певний колір виділення за допомогою VBA

1. Перш за все, натисніть вкладку «Розробник» на стрічці.
2. Потім натисніть “Visual Basic”, щоб запустити редактор VBA у програмі Word. А враховуючи, що вкладка «Розробник» у вас ще недоступна, ви можете натомість натиснути «Alt + F11».
3. Далі натисніть проект «Звичайний» у лівій колонці редактора.
4. Потім клацніть на вкладці «Вставка» на панелі меню.
5. У спадному меню виберіть “Модуль”.
6. Тепер двічі клацніть на новий модуль, щоб відкрити область кодування.
7. Вставте наступний макрос у модуль:

Sub RemoveSpecificHighlightColor()
  Dim objDoc As Document
  Dim objRange As Range
  Dim strHighlightColor As String
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strHighlightColor = InputBox("Choose a Highlight colour to remove (enter the value):" & vbNewLine & _
                      vbTab & "Auto" & vbTab & vbTab & "0" & vbNewLine & _
                      vbTab & "Black" & vbTab & vbTab & "1" & vbNewLine & _
                      vbTab & "Blue" & vbTab & vbTab & "2" & vbNewLine & _
                      vbTab & "BrightGreen" & vbTab & "4" & vbNewLine & _
                      vbTab & "DarkBlue" & vbTab & vbTab & "9" & vbNewLine & _
                      vbTab & "DarkRed" & vbTab & vbTab & "13" & vbNewLine & _
                      vbTab & "DarkYellow" & vbTab & "14" & vbNewLine & _
                      vbTab & "Gray25" & vbTab & vbTab & "16" & vbNewLine & _
                      vbTab & "Gray50" & vbTab & vbTab & "15" & vbNewLine & _
                      vbTab & "Green" & vbTab & vbTab & "11" & vbNewLine & _
                      vbTab & "Pink" & vbTab & vbTab & "5" & vbNewLine & _
                      vbTab & "Red" & vbTab & vbTab & "6" & vbNewLine & _
                      vbTab & "Teal" & vbTab & vbTab & "10" & vbNewLine & _
                      vbTab & "Turquoise" & vbTab & "3" & vbNewLine & _
                      vbTab & "Violet" & vbTab & vbTab & "12" & vbNewLine & _
                      vbTab & "White" & vbTab & vbTab & "8" & vbNewLine & _
                      vbTab & "Yellow" & vbTab & vbTab & "7", "Highlight Color")
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
 
      Do While .Execute
        If Selection.Range.HighlightColorIndex = strHighlightColor Then
          Set objRange = Selection.Range
          objRange.HighlightColorIndex = wdNoHighlight
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  MsgBox ("The chosen highlight color has been removed in the document.")
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

8. Потім натисніть кнопку «Виконати» або натисніть «F5», щоб виконати коди.
9. Далі є вікно “Колір виділення”. Для кожного кольору є значення. Просто введіть значення, пов’язане з кольором виділення, який потрібно видалити.
10. І останнє, але не менш важливе, натисніть «ОК», щоб продовжити.
11. Коли це буде зроблено, ви отримаєте таке вікно повідомлення:

Ось можливий результат:

Бережіть свої дані

Цілісність даних може бути легко порушена. Настав час вжити превентивних заходів, поки не стало надто пізно. Наприклад, найрекомендованіший спосіб – регулярно створювати резервні копії файлів. Завжди переконайтеся, що у вас є остання версія, до якої можна звернутися, якщо станеться щось непередбачене. В іншому випадку вам доведеться пройти через Відновлення слів щоб повернути дані.

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

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