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. След това щракнете върху бутона "Run" или натиснете "F5".
8. След това в полето „Specify Highlight Color“ въведете стойност, представляваща цвета, който трябва да бъде заменен. За да получите съответната стойност на определен цвят, можете да посетите тази връзка: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
9. Например, ако искаме да заменим жълтия цвят с ярко зелен, въвеждаме „7“ в полето „Specify Highlight Color“ и кликваме „OK“.
10. След това в полето „New Highlight Color“ въведете стойност на новия цвят и щракнете върху „OK“.

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

Избягвайте бедствие при загуба на данни

Word е толкова голям помощник в нашата ежедневна работа. Следователно не е трудно да си представим катастрофата, която може да доведе, когато се срине. За да избегнете загуба на важни данни, можете да се сдобиете с Поправка на думи инструмент предварително. С такава помощна програма под ръка не трябва да се притеснявате за загубата на данни.

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

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