2 naudingi metodai, kaip pakeisti paryškinimo spalvą „Word“ dokumente

Šiame straipsnyje mes džiaugiamės galėdami parodyti jums 2 naudingus būdus, kaip pakeisti paryškinimo spalvą Word dokumente.

Kartais galite paryškinti skirtingą turinį skirtingomis spalvomis. Tačiau skirtingai nei šrifto spalva, negalite naudoti „Rasti ir pakeisti“, kad rastumėte tekstus tam tikra paryškinimo spalva ir pakeistumėte jį kita.

Todėl mums reikės tam tikrų sprendimų. Toliau pateikiami 2 būdai, galimi skirtingais atvejais.

1 būdas: visas paryškinimo spalvas pakeiskite ta pačia

Paryškinimo spalva, susijusi su dialogo langu „Rasti ir pakeisti“, yra dabartinė, pasirinkta paryškinimo piktogramoje.

1. Visų pirma, skirtuke „Pagrindinis“ ir grupėje „Šriftas“ spustelėkite išskleidžiamąjį mygtuką komandoje „Teksto paryškinimo spalva“. Pasirinkite spalvą, į kurią norite pakeisti visas paryškinimo spalvas. Pavyzdžiui, čia pasirenkame „Bright Green“.
2. Tada paspauskite „Ctrl + H“, kad paleistumėte dialogo langą „Rasti ir pakeisti“.
3. Įveskite žymeklį į teksto laukelį „Rasti ką“.
4. Spustelėkite „Daugiau“, kad pamatytumėte daugiau parinkčių, ir spustelėkite „Formatas“.
5. Ir pasirinkite „Paryškinti“.
6. Tada perkelkite žymeklį į laukelį „Pakeisti į“ ir pakartokite 4 ir 5 veiksmus.
7. Galiausiai spustelėkite „Pakeisti viską“.

Dabar visas paryškintas spalvas pakeitėte ryškiai žalia.

2 būdas: pakeiskite konkrečią paryškinimo spalvą kita

Norint atlikti šią užduotį, reikia makrokomandos.

1. Pirmiausia paspauskite „Alt“ + F11, kad atidarytumėte VBA redaktorių.
2. Tada kairiajame stulpelyje spustelėkite „Normalus“ projektas.
3. Tada meniu juostoje spustelėkite skirtuką „Įterpti“.
4. Ir tame išskleidžiamajame meniu pasirinkite „Modulis“.
5. Atidarykite naują modulį dukart spustelėdami.
6. Dabar įklijuokite šiuos kodus:

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. Tada spustelėkite mygtuką „Vykdyti“ arba paspauskite „F5“.
8. Tada laukelyje „Nurodykite paryškinimo spalvą“ įveskite reikšmę, kuri reiškia spalvą, kurią reikia pakeisti. Norėdami gauti atitinkamą konkrečios spalvos reikšmę, galite apsilankyti šioje nuorodoje: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
9. Pavyzdžiui, jei norime geltoną spalvą pakeisti ryškiai žalia, laukelyje „Nurodykite paryškinimo spalvą“ įveskite „7“ ir spustelėkite „Gerai“.
10. Tada laukelyje „Nauja paryškinimo spalva“ įveskite naujos spalvos reikšmę ir spustelėkite „Gerai“.

Štai galimas rezultatas pakeitus geltoną ryškiai žalia.

Venkite duomenų praradimo nelaimės

Žodis yra toks puikus pagalbininkas mūsų kasdieniame darbe. Todėl nesunku įsivaizduoti, kokią katastrofą jis gali atnešti, kai sugrius. Kad neprarastumėte svarbių duomenų, galite gauti a Žodžių taisymas įrankį iš anksto. Turėdami tokią priemonę, neturėtumėte jaudintis dėl duomenų praradimo.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas xlsx bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com