2 nopeaa tapaa muuttaa useiden alleviivausten väriä Word-asiakirjassasi

Tässä artikkelissa keskitymme selittämään kaksi nopeaa tapaa muuttaa useiden alleviivausten väriä Word-asiakirjassasi.

Oletuksena Wordin alleviivauksen väri on "Automaattinen". Mutta se voi joskus olla yksitoikkoista. Joten jos haluat monipuolistaa asiakirjasi värivalikoimaa ja erottua tärkeästä sisällöstä, on hyvä valinta vaihtaa alleviivauksen väriä.

Alleviivauksen väriä on helppo muuttaa ennen sen luomista. Siksi haluamme seuraavassa sisällössä painottaa olemassa olevien alleviivausten värin muokkaamista.

Tapa 1: Käytä "Advanced Find" -ominaisuutta

Ensinnäkin sinun on löydettävä kaikki alleviivauskohdat nykyisestä dokumentista. Tätä varten voit tutustua edelliseen artikkeliimme: 2 nopeaa tapaa hakea alleviivattuja tekstejä Word-asiakirjassasi

Kun olet löytänyt ja valinnut kaikki alleviivaukset, teet seuraavat vaiheet:

1. Napsauta vain "Koti"-välilehden alleviivauskuvakkeen takana olevaa ylösalaisin olevaa kolmiopainiketta.
2. Valitse sitten haluamasi väri laajennetusta "Alleviivausväri" -valikosta.

Tässä on videoesittelymme:

Tapa 2: Suorita Word-makro

Word-makro on niin mahtava työkalu. Emme voi vain käyttää sitä kaikkien alleviivausten etsimiseen, vaan myös muuttaa niiden väriä. Ja molemmat toimenpiteet voidaan suorittaa vain yhdellä makrolla.

1. Aloita aktivoimalla "Kehittäjä"-välilehti ja napsauttamalla sitä.
2. Napsauta sitten "Visual Basic" "Koodi" -ryhmässä.
3. Napsauta sitten “Normal”.
4. Napsauta sitten Lisää-välilehteä.
5. Ja valitse valikosta ”Moduuli”.
6. Kaksoisnapsauta uutta moduulia avataksesi muokkaustilan.
7. Liitä nyt alla olevat koodit sinne:

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. Viimeisenä mutta ei vähäisimpänä, napsauta "Suorita" -painiketta.

Huomautuksia:

1. Ensinnäkin koodirivi ".Font.Underline = wdUnderlineSingle" tarkoittaa, että tämä makro löytää vain yksittäiset alleviivaukset. Voit muuttaa "wdUnderlineSingle" muotoon "wdUnderlineDouble", "wdUnderlineThick" jne. Lisää alleviivausvakioita löytyy tästä linkistä: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
2. Toiseksi koodirivi ".Replacement.Font.UnderlineColor = wdColorBlue" tarkoittaa, että makro muuttaa alleviivauksen värin siniseksi. Ja lisää värivakioarvoja löydät osoitteesta: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Hae vaarantuneet Word-tiedot

Wordin tietojen katoaminen on nykyään erittäin mahdollista. Esimerkiksi yleisin Wordissa kohtaamasi virhe on näytön jumiutuminen. Voit toki käynnistää ohjelman uudelleen. Joskus työstämäsi asiakirjan automaattisesti tallentuu versio. Emme kuitenkaan voi sulkea pois tai sallia asiakirjan menettämistä kokonaan tai osittain. Siksi meidän on mietittävä tapoja palauttaa tiedot. Ja siitä puheen ollen, ammattilainen... Sanakorjaus työkalu on sen menestyksen avain.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaustyökalut vaurioituneet xls ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com