Как да премахнете определен цвят на подчертаване от вашия документ на 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. След това щракнете върху бутона „Run“ или натиснете „F5“, за да изпълните кодове.
9. След това има полето „Highlight Color“. Има стойност за всеки цвят. Просто въведете стойността, свързана с цвета на подчертаване, който ще бъде премахнат.
10. Не на последно място, щракнете върху „OK“, за да продължите.
11. Когато приключи, ще получите такова съобщение:

Ето възможния резултат:

Пазете данните си в безопасност

Целостта на данните може лесно да бъде компрометирана. Време е да предприемете превантивни действия, преди да е станало твърде късно. Например, най-препоръчителният начин е редовно да архивирате файловете. Винаги се уверявайте, че имате най-новата версия, към която да се обърнете, в случай че се случи нещо неочаквано. В противен случай ще трябва да преминете през Възстановяване на думи за да получите данни обратно.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително поправете xlsx и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com