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

Поділитися зараз:

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

За замовчуванням колір підкреслення у програмі Word встановлений як “Автоматичний”. Але іноді це може бути одноманітно. Отже, щоб урізноманітнити колір, встановлений у вашому документі, і виділити важливий вміст, гарним вибором є змінити колір підкреслення.

Легко змінити колір підкреслення перед його створенням. Тому в наступному змісті ми хотіли б зробити акцент на зміні кольору існуючих підкреслень.

Спосіб 1: Використовуйте функцію «Розширений пошук»

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

Після того, як ви знайдете та підкреслили всі підкреслення, ви зробите наведені нижче кроки:

  1. Ви просто натискаєте перевернуту кнопку трикутника за значком підкреслення на вкладці «Головна».
  2. Потім виберіть колір, який вам подобається, у розширеному меню «Колір підкреслення».Клацніть «Домашня сторінка» -> перевернута кнопка-> Виберіть колір у розширеному меню «Колір підкреслення»

Ось наша відео демонстрація:

Спосіб 2: Запустіть макрос Word

Макрос Word - це такий чудовий інструмент. Ми можемо не тільки використовувати його для пошуку всіх підкреслення, але й змінити їх колір. І обидві процедури можна закінчити лише за одним макросом.

  1. Для початку активуйте вкладку «Розробник» і натисніть на неї.
  2. Потім натисніть “Visual Basic” у групі “Код”.Клацніть «Розробник» -> Клацніть «Visual Basic»
  3. Далі натисніть “Звичайний”.
  4. Потім натисніть вкладку “Вставити”.
  5. І виберіть «Модуль» у меню.Клацніть «Звичайний» -> Клацніть «Вставити» -> Клацніть «Модуль»
  6. Двічі клацніть новий модуль, щоб відкрити простір для редагування.
  7. Тепер вставте туди наведені нижче коди:
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
  1. І останнє, але не менш важливе, натисніть кнопку «Виконати».Вставити коди-> Натиснути "Виконати"

примітки:

  1. По-перше, рядок коду “.Font.Underline = wdUnderlineSingle” означає, що цей макрос знаходить лише окремі підкреслення. Ви можете змінити “wdUnderlineSingle” на “wdUnderlineDouble”, “wdUnderlineThick” тощо. Щоб отримати більше констант підкреслення, перейдіть за цим посиланням: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
  2. По-друге, рядок коду ".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

Поділитися зараз:

Коментарі закриті.