2 Užitočné metódy nahradenia farby zvýraznenia v dokumente Word

V tomto článku vám s potešením ukážeme 2 užitočné spôsoby, ako nahradiť farbu zvýraznenia v dokumente Word.

Niekedy môžete zvýrazniť iný obsah rôznymi farbami. Ale na rozdiel od farby písma nemôžete použiť funkciu „Nájsť a nahradiť“ na nájdenie textov v konkrétnej farbe zvýraznenia a ich nahradenie inou farbou.

Preto budeme potrebovať nejaké alternatívne riešenia. Nasledujú 2 spôsoby dostupné pre rôzne prípady.

Metóda 1: Nahraďte všetky farby zvýraznenia rovnakou farbou

Farba zvýraznenia priradená k dialógovému oknu „Nájsť a nahradiť“ je aktuálna vybratá v ikone Zvýraznenie.

1. Najskôr na karte „Domov“ a v skupine „Písmo“ kliknite na rozbaľovacie tlačidlo na príkaze „Farba zvýraznenia textu“. Vyberte farbu, na ktorú chcete zmeniť všetky farby zvýraznenia. Tu napríklad vyberieme „Jasne zelená“.
2. Potom stlačte „Ctrl + H“, aby sa spustilo dialógové okno „Nájsť a nahradiť“.
3. Umiestnite kurzor do textového poľa „Nájsť čo“.
4. Kliknutím na „Viac“ zobrazíte ďalšie možnosti a kliknutím na „Formátovať“.
5. A zvoľte „Zvýrazniť“.
6. Ďalej umiestnite kurzor do poľa „Nahradiť“ a zopakujte kroky 4 a 5.
7. Nakoniec kliknite na „Nahradiť všetko“.

Teraz ste všetky zvýraznené farby nahradili žiarivo zelenou.

Metóda 2: Vymeňte konkrétnu farbu zvýraznenia za inú

Na splnenie tejto úlohy je potrebné makro.

1. Najprv a predovšetkým stlačte klávesy „Alt + F11“ pre otvorenie editora VBA.
2. Ďalej kliknite na „Normálny“ projekt v ľavom stĺpci.
3. Potom kliknite na karte „Vložiť“ na paneli s ponukami.
4. V rozbaľovacej ponuke vyberte možnosť „Modul“.
5. Nový modul otvoríte dvojitým kliknutím.
6. Teraz vložte nasledujúce kódy:

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. Ďalej kliknite na tlačidlo „Spustiť“ alebo stlačte „F5“.
8. Potom do poľa „Zadať farbu zvýraznenia“ zadajte hodnotu predstavujúcu farbu, ktorá sa má nahradiť. Ak chcete získať zodpovedajúcu hodnotu konkrétnej farby, môžete navštíviť tento odkaz: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
9. Napríklad, ak chceme nahradiť žltú farbu jasnou zelenou, zadáme „7“ do poľa „Zadať farbu zvýraznenia“ a klikneme na „OK“.
10. Potom do poľa „Nová farba zvýraznenia“ zadajte hodnotu novej farby a kliknite na tlačidlo „OK“.

Tu je možný výsledok nahradenia žltej jasne zelenou farbou.

Vyvarujte sa katastrofe straty dát

Slovo je takým skvelým pomocníkom pri našej každodennej práci. Preto nie je ťažké predstaviť si katastrofu, ktorú môže priniesť, keď sa zrúti. Aby ste sa vyhli strate dôležitých údajov, môžete sa zmocniť a Oprava slova nástroj vopred. Vďaka takémuto nástroju po ruke by ste sa nemali obávať straty dát.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane skazený xlsx a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S