2 kiiret viisi oma Wordi dokumendi mitme allajoonimise värvi muutmiseks

Sõnalahendused September 28, 2025

Selles artiklis keskendume kahe kiire viisi selgitamisele, kuidas muuta Wordi dokumendi mitme allakriipsu värvi pakettidena.

Vaikimisi on Wordis allajoonitud värviks seatud "Automaatne". Kuid mõnikord võib see olla üksluine. Nii et nii dokumendi värvikomplekti mitmekesistamiseks kui ka olulise sisu esiletõstmiseks on hea valik muuta allajoonimise värvi.

Allajoonimise värvi on enne loomist lihtne muuta. Seetõttu sooviksime järgnevas sisus rõhku panna olemasolevate allajoonide värvi muutmisele.

1. meetod: kasutage funktsiooni „Täpsem otsing”.

Eelkõige peate leidma kõik allajoonitud märgid praegusest dokumendist. Selleks võite vaadata meie eelmist artiklit: 2 kiiret viisi oma Wordi dokumendist allajoonitud tekstide otsimiseks

Pärast kõigi allajoonimiste leidmist ja valimist tehke järgmised sammud:

  1. Klõpsake lihtsalt vahekaardi „Kodu” all allajoonitud ikooni taga tagurpidi kolmnurga nuppu.
  2. Seejärel valige „Allakriipsutamise värv” laiendatud menüüst soovitud värv.Klõpsake "Avaleht" -> tagurpidi nupp -> Valige "Allajoone värvi" laiendatud menüüst värv

Siin on meie videoesitlus:

2. meetod: käivitage Wordi makro

Wordi makro on nii hämmastav tööriist. Me ei saa seda kasutada mitte ainult kõigi allajoonide otsimiseks, vaid ka nende värvi muutmiseks. Ja mõlemad protseduurid saab lõpetada vaid ühe makroga.

  1. Alustuseks aktiveerige vahekaart "Arendaja" ja klõpsake seda.
  2. Seejärel klõpsake rühmas "Kood" "Visual Basic".Klõpsake "Arendaja" -> Klõpsake "Visual Basic".
  3. Järgmisena klõpsake nuppu "Tavaline".
  4. Seejärel klõpsake vahekaarti "Sisesta".
  5. Ja valige menüüst "Moodul".Klõpsake "Tavaline" -> Klõpsake "Lisa" -> klõpsake "Moodul"
  6. Redigeerimisruumi avamiseks topeltklõpsake uuel moodulil.
  7. Nüüd kleepige sinna järgmised koodid:
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. Viimane, kuid mitte vähem oluline, klõpsake nuppu "Käivita".Kleebi koodid -> klõpsake "Käivita"

märkused:

  1. Esiteks tähendab koodirida “.Font.Underline = wdUnderlineSingle”, et see makro leiab ainult üksikud allakriipsud. Saate muuta "wdUnderlineSingle" väärtuseks "wdUnderlineDouble", "wdUnderlineThick" jne. Rohkemate allakriipsutatud konstantide vaatamiseks külastage seda linki: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
  2. Teiseks, koodirida ".Replacement.Font.UnderlineColor = wdColorBlue" tähendab, et makro muudab allajoonimise värvi siniseks. Ja rohkemate värvikonstantide saamiseks külastage: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Ohustatud Wordi andmete toomine

Tänapäeval on Wordi andmete kadumine täiesti võimalik. Näiteks on Wordi kõige levinum viga ekraani hangumine. Muidugi võite programmi taaskäivitada. Mõnikord salvestatakse teie töötava dokumendi automaatselt. Siiski ei saa me välistada ega lubada dokumendi täielikku või osalist kadumist. Seega peame mõtlema andmete taastamise viisidele. Ja sellest rääkides, professionaal... Sõnaparandus tööriist on selle edu võti.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on andmete taastamise tehnoloogiate, sealhulgas remonditööriistade alal maailmas liider kahjustatud xls ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.