3 moduri rapide de a schimba în lot culoarea textelor din paranteze în documentul Word

Distribuie acum:

În postarea de astăzi, ne vom concentra pe prezentarea a 3 modalități de a schimba în lot culoarea textelor dintre paranteze în documentul Word.

Nu este neobișnuit să folosiți diferite tipuri de paranteze în documentul dvs. Pentru textele cuprinse între paranteze, acestea au o importanță egală cu cele care nu. Chiar și uneori, descoperi că trebuie să îi scoți în evidență. Având în vedere această solicitare, am aranjat 3 abordări rapide disponibile pentru a schimba în lot culoarea textelor dintre paranteze.Schimbați în lot culoarea textelor din paranteze în documentul dvs. Word

Metoda 1: Folosiți „Căutare avansată” pentru a găsi toate textele dintre paranteze

  1. Pentru început, faceți clic pe fila „Acasă” din Panglică.
  2. Apoi, în grupul „Editare”, faceți clic pe butonul drop-down de lângă comanda „Găsiți”.
  3. În meniul derulant, alegeți „Căutare avansată” pentru a deschide caseta de dialog „Găsiți și înlocuiți”.Faceți clic pe „Acasă”->Faceți clic pe butonul derulant de lângă „Găsiți”->Selectați „Găsire avansată”
  4. Apoi plasați cursorul în caseta de text „Găsiți ce” și introduceți unul dintre șirurile din tabelul următor.
Console Șiruri pentru a găsi paranteze și toate textele incluse
Paranteza patrata

[]

\[*\]
Paranteze

()

\(*\)
Acolade (Paranteze)

{}

\{*\}
Paranteze unghiulare

<>

\<*\>

 

  1. Faceți clic pe fila „Mai multe”.
  2. Apoi bifați caseta „Folosiți caractere metalice”.
  3. Faceți clic pe „Find In” și selectați „Main Document”.Introduceți șir în caseta de text „Găsiți ce”->Faceți clic pe „Mai multe”->Bifați caseta „Folosiți caractere metalice”->Faceți clic pe „Găsiți în”->Alegeți „Documentul principal”
  4. Acum veți vedea că toate textele din interiorul tipului specific de paranteze sunt în selecție.
  5. Puteți continua să efectuați în caseta „Găsiți și înlocuiți” făcând clic pe fila „Format” și alegeți „Font”.
  6. În caseta „Găsiți font”, alegeți o culoare de font și faceți clic pe „OK”. Apoi culoarea fontului dintre paranteze va fi schimbată.
  7. Sau puteți apăsa „Ctrl+D” pentru a deschide caseta „Font” și a seta acolo culoarea fontului.

Metoda 2: Utilizați funcția „Găsiți și înlocuiți” pentru a schimba culoarea fontului

  1. În primul rând, apăsați „Ctrl + H” pentru a declanșa caseta „Găsiți și înlocuiți”.
  2. În caseta de text „Găsiți ce”, introduceți un șir disponibil pe tabel în metoda 1.
  3. Și în caseta de text „Înlocuiește cu”, introduceți „^&”.
  4. Apoi faceți clic pe „Mai multe” și bifați caseta „Folosiți caractere metalice”.
  5. Apoi faceți clic pe butonul „Format” și alegeți „Font”.
  6. Setați o culoare de font acolo și faceți clic pe „OK”.
  7. În cele din urmă, faceți clic pe „Înlocuiți totul” în caseta „Găsiți și înlocuiți”.Introduceți șiruri de caractere în casetele de text „Găsiți ce” și „Înlocuiți cu”-> Bifați caseta „Utilizați caractere joker”->Faceți clic pe „Format”-> „Font”-> „Înlocuiește tot”

Metoda 3: Rulați coduri VBA pentru a schimba culoarea textelor

Rularea următoarei macrocomenzi va schimba toate textele incluse în toate tipurile de paranteze la o culoare desemnată.

  1. Apăsați „Alt+ F11” pentru a invoca editorul VBA.
  2. Apoi faceți clic pe proiect „Normal”.
  3. Apoi faceți clic pe „Inserare” și alegeți „Modul”.Faceți clic pe „Normal” -> Faceți clic pe „Inserare” -> Faceți clic pe „Modul”
  4. Faceți dublu clic pentru a deschide modulul nou creat și pentru a lipi codurile acolo:
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. Apăsați „F5” pentru a executa coduri.
  2. Va apărea o casetă de introducere. Puteți căuta valoarea unei anumite culori pe această pagină web:

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

Introduceți o valoare și faceți clic pe „OK” pentru a continua.Introduceți o valoare a culorii fontului -> Faceți clic pe „OK”

Iată rezultatul posibil:Efectul rulării codurilor VBA

Adresați corect corupția documentului

Nu ar trebui să te bazezi pe noroc pentru a păstra datele în siguranță. În schimb, trebuie să te pregătești complet înainte de a se întâmpla orice dezastru legat de date. Una dintre cele mai bune soluții este să obții un instrument specializat pentru a remedia problema. cuvânt deteriorat în avans.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv Reparatie Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com

Distribuie acum:

Comentariile sunt închise.