3 бързи начина за групово промяна на цвета на текстовете в скоби в документа на Word

Споделете сега:

В днешната публикация ще се съсредоточим върху показването на 3 начина за групова промяна на цвета на текстовете в скоби във вашия Word документ.

Не е необичайно да използвате различни видове скоби във вашия документ. За текстовете, затворени в скоби, те са от еднакво значение с тези, които не са. Дори понякога откривате, че трябва да ги откроите. Предвид това търсене, ние сме подредили 3 бързи подхода, които можете да промените партидно в цвета на текстовете в скоби.Пакетно променете цвета на текстовете в скоби във вашия Word документ

Метод 1: Използвайте „Разширено търсене“, за да намерите всички текстове в скоби

  1. За начало кликнете върху раздела „Начало“ в лентата.
  2. След това в групата „Редактиране“ щракнете върху падащия бутон до командата „Намиране“.
  3. От падащото меню изберете „Разширено търсене“, за да отворите диалоговия прозорец „Намиране и замяна“.Щракнете върху „Начало“ -> Щракнете върху падащия бутон до „Намиране“ -> Изберете „Разширено търсене“
  4. След това поставете курсора в текстовото поле „Намери какво“ и въведете един от низовете в следващата таблица.
Скоби Струни за намиране на скоби и всички затворени текстове
Квадратни скоби

[]

\ [* \]
Скоби

()

\ (* \)
Скоби (къдрави скоби)

{}

\ {* \}
Ъглови скоби

<>

\ <* \>

 

  1. Щракнете върху раздела „Още“.
  2. След това поставете отметка в квадратчето „Използвай заместващи символи“.
  3. Щракнете върху „Намери в“ и изберете „Основен документ“.Въведете низ в текстовото поле „Намери какво“ -> Щракнете върху „Още“ -> Отметнете полето „Използвайте заместващи символи“ -> Щракнете върху „Намери в“ -> Изберете „Основен документ“
  4. Сега ще видите всички текстове в конкретния тип скоби, които са в избор.
  5. Можете да продължите да изпълнявате в полето „Намери и замени“, като щракнете върху раздела „Форматиране“ и изберете „Шрифт“.
  6. В полето „Намиране на шрифт“ изберете цвят на шрифта и щракнете върху „OK“. След това цветът на шрифта в скоби трябва да се промени.
  7. Или можете да натиснете „Ctrl + D“, за да отворите полето „Шрифт“ и да зададете там цвят на шрифта.

Метод 2: Използвайте функцията „Намери и замени“, за да промените цвета на шрифта

  1. Първо, натиснете „Ctrl + H“, за да задействате полето „Намиране и замяна“.
  2. В текстовото поле „Намери какво“ въведете низ, наличен в таблицата в метод 1.
  3. И в текстовото поле „Замени с“ въведете „^ &“.
  4. След това щракнете върху „Още“ и поставете отметка в квадратчето „Използвайте заместващи символи“.
  5. След това щракнете върху бутона „Форматиране“ и изберете „Шрифт“.
  6. Задайте там цвят на шрифта и щракнете върху „OK“.
  7. Накрая щракнете върху „Замяна на всички“ в полето „Намиране и замяна“.Въведете низове в „Намерете какво“ и „Заменете с„ Текстови полета-> Поставете отметка в квадратчето „Използвайте заместващи символи“ -> Щракнете върху „Форматиране“ -> „Шрифт“ -> „Замяна на всички“

Метод 3: Изпълнете VBA кодове, за да промените цвета на текстовете

Изпълнението на следния макрос ще промени всички затворени текстове във всички типове скоби до определен цвят.

  1. Натиснете „Alt + F11“, за да извикате редактора на VBA.
  2. След това щракнете върху „Нормален“ проект.
  3. След това кликнете върху „Вмъкване“ и изберете „Модул“.Щракнете върху "Нормално" -> Щракнете върху "Вмъкване" -> Щракнете върху "Модул"
  4. Щракнете двукратно, за да отворите новосъздадения модул и да поставите кодове там:
Sub ChangeTheFontColorInBrackets()
  Dim objRange As Range
  Dim strFontColor As String
  Set objRange = ActiveDocument.Content 
  strFontColor = InputBox("Enter the font color you want to change", "Font Color", "For example:2")
  ' Find the words in brackets and change the font color.

  With objRange.Find
    .Text = "\[*\]"
    .MatchWildcards = True
    .Replacement.Font.ColorIndex = strFontColor
    .Execute Replace:=wdReplaceAll
    .Text = "\(*\)"
    .Replacement.Font.ColorIndex = strFontColor
    .Execute Replace:=wdReplaceAll
    .Text = "\{*\}"
    .Replacement.Font.ColorIndex = strFontColor
    .Execute Replace:=wdReplaceAll
    .Text = "\<*\>"
    .Replacement.Font.ColorIndex = strFontColor
    .Execute Replace:=wdReplaceAll   
  End With
End Sub
  1. Натиснете „F5“ за изпълнение на кодове.
  2. Ще има поле за въвеждане, което ще ви подкани. Можете да потърсите стойността на определен цвят на тази уеб страница:

https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex

Просто въведете стойност и щракнете върху „OK“, за да продължите.Въведете стойност на цвета на шрифта -> Щракнете върху „OK“

Ето възможния резултат:Ефект от стартиране на VBA кодове

Правилно адресирайте корупцията на документа

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

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

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

Споделете сега:

Коментарите са забранени.