В тази статия ще се съсредоточим върху обяснението на 2 бързи начина за групова промяна на цвета на няколко подчертавания във вашия документ на Word.
По подразбиране цветът за подчертаване в Word е зададен като „Автоматично“. Но понякога може да бъде монотонно. Така че, за да разнообразите цветовия набор във вашия документ и да изпъкнете важното съдържание, добър избор е да промените цвета на подчертаването.
Лесно е да промените цвета на подчертаването, преди да го създадете. Ето защо в следващото съдържание бихме искали да наблегнем на промяната на цвета на съществуващите подчертавания.
Метод 1: Използвайте функцията „Разширено търсене“
Първо и най-важно, трябва да намерите всички места за подчертаване в текущия документ. За тази цел можете да се обърнете към предишната ни статия: 2 бързи начина за търсене на подчертани текстове във вашия Word документ
След като намерите и имате всички подчертавания в селекцията, предприемате следните стъпки:
- Просто щракнете върху бутона с главата надолу триъгълник зад иконата за подчертаване в раздела „Начало“.
- След това изберете цвят, който харесвате, от разширеното меню на „Цвят за подчертаване“.
Ето нашата видео демонстрация:
Метод 2: Стартирайте Word Macro
Макросът на Word е толкова невероятен инструмент. Можем не само да го използваме за търсене на всички подчертавания, но и да променим цвета им. И двете процедури могат да бъдат завършени само с един макрос.
- Като начало активирайте раздела „Разработчик“ и щракнете върху него.
- След това щракнете върху „Visual Basic“ в групата „Код“.
- След това щракнете върху „Нормално“.
- След това щракнете върху раздела „Вмъкване“.
- И изберете „Модул“ от менюто.
- Кликнете два пъти върху новия модул, за да отворите пространството за редактиране.
- Сега поставете кодовете по-долу там:
Sub ChangeUnderlineColor()
Dim objDoc As Document
Dim objRange As Range
Set objDoc = ActiveDocument
Set objRange = objDoc.Range
objRange.Find.ClearFormatting
With objRange.Find
.Font.Underline = wdUnderlineSingle
.text = ""
.Replacement.text = ""
.Replacement.Font.UnderlineColor = wdColorBlue
.Execute Format:=True, Replace:=wdReplaceAll
End With
End Sub
- Не на последно място, щракнете върху бутона „Изпълни“.
бележки:
- Първо, кодовият ред „.Font.Underline = wdUnderlineSingle“ означава, че този макрос намира само единичните подчертавания. Можете да промените „wdUnderlineSingle“ на „wdUnderlineDouble“, „wdUnderlineThick“ и т.н. За повече константи за подчертаване можете да посетите тази връзка: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
- Второ, кодовият ред „.Replacement.Font.UnderlineColor = wdColorBlue“ означава, че макросът ще промени цвета на подчертаването на син. А за повече цветови константи можете да посетите: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor
Извличане на компрометирани Word данни
Загубата на данни в Word е много възможна в днешно време. Например, най-често срещаната грешка, с която ще се сблъскате в Word, е замръзването на екрана. Разбира се, можете да рестартирате програмата. Понякога ще има автоматично запазена версия на документа, върху който работите. Не можем обаче да изключим или да си позволим възможността да загубим документа, изцяло или частично. Следователно, трябва да помислим за начини за възстановяване на данните. И като говорим за това, професионалист... Поправка на думи инструментът е ключът към неговия успех.
Въведение на автора:
Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително инструмент за поправка повредени xls и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com