2 moduri rapide de a schimba în lot culoarea subliniilor multiple din documentul Word

În acest articol, ne vom concentra pe explicarea a 2 moduri rapide de a schimba în lot culoarea subliniilor multiple din documentul Word.

În mod implicit, culoarea sublinierii în Word este setată ca „Automat”. Dar uneori poate fi monoton. Deci, atât pentru a diversifica setul de culori din documentul dvs., cât și pentru a evidenția conținutul important, este o alegere bună să schimbați culoarea sublinierii.

Este ușor să modificați culoarea sublinierii înainte de a o crea. Prin urmare, în cuprinsul următor, am dori să punem accent pe modificarea culorii subliniilor existente.

Metoda 1: Utilizați funcția „Găsire avansată”.

În primul rând, trebuie să găsiți toate instanțele de subliniere din documentul curent. Pentru aceasta, puteți consulta articolul nostru anterior: 2 moduri rapide de a căuta texte subliniate în documentul Word

După ce găsiți și selectați toate subliniile, urmați pașii de mai jos:

1. Doar faceți clic pe butonul triunghi invers din spatele pictogramei de subliniere din fila „Acasă”.
2. Apoi alegeți o culoare care vă place din meniul extins „Culoare de subliniere”.

Iată demonstrația noastră video:

Metoda 2: Executați Word Macro

Word macro este un instrument atât de uimitor. Îl putem folosi nu numai pentru a căuta toate subliniile, ci și pentru a le schimba culoarea. Și ambele proceduri pot fi finalizate într-o singură macrocomandă.

1. Pentru început, activați fila „Dezvoltator” și faceți clic pe ea.
2. Apoi faceți clic pe „Visual Basic” în grupul „Cod”.
3. Apoi faceți clic pe „Normal”.
4. Apoi faceți clic pe fila „Inserare”.
5. Și selectați „Modul” din meniu.
6. Faceți dublu clic pe noul modul pentru a deschide spațiul de editare.
7. Acum lipiți codurile de mai jos acolo:

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

8. Nu în ultimul rând, faceți clic pe butonul „Run”.

notițe:

1. În primul rând, linia de cod „.Font.Underline = wdUnderlineSingle” înseamnă că această macrocomandă găsește doar sublinierea unică. Puteți schimba „wdUnderlineSingle” în „wdUnderlineDouble”, „wdUnderlineThick”, etc. Pentru mai multe constante de subliniere, puteți vizita acest link: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
2. În al doilea rând, linia de cod „.Replacement.Font.UnderlineColor = wdColorBlue” înseamnă că macro-ul va schimba culoarea sublinierii în albastru. Și pentru mai multe constante de culoare, puteți vizita: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Preluați date Word compromise

Pierderea datelor din Word este foarte posibilă în zilele noastre. De exemplu, cea mai frecventă eroare pe care o veți întâlni în Word este blocarea ecranului. Cu siguranță, puteți alege să reporniți programul. Uneori, va exista o versiune salvată automat a documentului la care lucrați. Cu toate acestea, nu putem exclude sau permite posibilitatea pierderii documentului, fie complet, fie parțial. Prin urmare, trebuie să ne gândim la modalități de a recupera datele. Și apropo de asta, un profesionist... Reparație Word instrumentul este cheia succesului său.

Introducerea autorului:

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