2 hyödyllistä tapaa Korvaa väri Word-asiakirjassa

Tässä artikkelissa on ilo näyttää sinulle kaksi hyödyllistä tapaa korvata korostusväri Word-asiakirjassa.

Joskus voit korostaa eri sisältöä eri väreillä. Toisin kuin kirjasinväri, et voi käyttää “Etsi ja korvaa” -toimintoa etsimään tiettyä korostusväriä sisältäviä tekstejä ja korvaamaan ne toisella.

Siksi tarvitsemme joitain kiertotapoja. Seuraavassa on kaksi tapaa käytettävissä eri tapauksissa.

Tapa 1: Korvaa kaikki korostusvärit samoilla

Etsi ja korvaa -valintaikkunaan liittyvä korostusväri on nykyinen Korostuskuvakkeessa valittu väri.

1. Ensinnäkin, napsauta "Koti" -välilehden ja "Fontti" -ryhmän avattavaa painiketta "Text Highlight Color" -komennossa. Valitse väri, johon haluat muuttaa kaikki korostusvärit. Esimerkiksi tässä valitaan ”Bright Green”.
2. Paina sitten "Ctrl + H" käynnistääksesi "Etsi ja korvaa" -valintaikkunan.
3. Laita kohdistin Etsi mitä -tekstiruutuun.
4. Napsauta "Lisää" tuodaksesi lisää vaihtoehtoja esiin ja napsauta "Alusta".
5. Ja valitse ”Korosta”.
6. Laita sitten kohdistin Korvaa-ruutuun ja toista vaiheet 4 ja 5.
7. Napsauta lopuksi “Korvaa kaikki”.

Nyt olet korvannut kaikki korostusvärit kirkkaan vihreällä.

Tapa 2: Korvaa tietty korostusväri toisella

Tämän tehtävän suorittamiseksi tarvitaan makro.

1. Ensinnäkin, paina "Alt + F11" avataksesi VBA-editorin.
2. Napsauta sitten vasemmassa sarakkeessa “Normaali” -projektia.
3. Napsauta sitten valikkorivin Lisää-välilehteä.
4. Ja valitse avattavasta valikosta "Moduuli".
5. Avaa uusi moduuli kaksoisnapsauttamalla.
6. Liitä nyt seuraavat koodit:

Sub ReplaceOneHighlightColorToAnother()
  Dim strFindColor As String
  Dim strReplaceColor As String
  Dim objDoc As Document
  Dim objRange As Range
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  strFindColor = InputBox("Specify a color (enter the value):", "Specify Highlight Color")
  strReplaceColor = InputBox("Specify a new color (enter the value):", "New Highlight Color")
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
 
      Do While .Execute
        If Selection.Range.HighlightColorIndex = strFindColor Then
          Set objRange = Selection.Range
          objRange.HighlightColorIndex = strReplaceColor
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  Application.ScreenUpdating = True
End Sub

7. Napsauta sitten "Suorita" -painiketta tai paina "F5".
8. Kirjoita sitten "Määritä korostusväri" -ruutuun arvo, joka edustaa korvattavaa väriä. Voit saada tietyn värin vastaavan arvon käymällä tällä linkillä: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
9. Esimerkiksi, jos haluamme korvata keltaisen värin kirkkaan vihreällä, kirjoitamme "7" kohtaan "Määritä korostusväri" -ruutuun ja napsautamme "OK".
10. Syötä sitten ”Uusi korostusväri” -ruutuun uuden värin arvo ja napsauta ”OK”.

Tässä on mahdollinen tulos korvata keltainen kirkkaan vihreällä.

Vältä tietojen menetyskatastrofia

Sana on niin suuri auttaja päivittäisessä työssä. Siksi ei ole vaikea kuvitella katastrofia, jonka se voi aiheuttaa, kun se romahtaa. Jotta vältät kriittisten tietojen menettämisen, voit saada käsiksi a Sanakorjaus työkalu etukäteen. Kun tällainen apuohjelma on käsillä, sinun ei tarvitse huolehtia tietojen menetyksestä.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korruptoitunut xlsx ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com