2 Užitečné metody pro nahrazení barvy zvýraznění v dokumentu Word

V tomto článku vám s potěšením ukážeme 2 užitečné metody, jak nahradit barvu zvýraznění v dokumentu Word.

Někdy můžete zvýraznit jiný obsah různými barvami. Ale na rozdíl od barvy písma nemůžete použít funkci „Najít a nahradit“ k vyhledání textů v konkrétní barvě zvýraznění a jejich nahrazení jinou.

Proto budeme potřebovat nějaká alternativní řešení. Následují 2 způsoby dostupné pro různé případy.

Metoda 1: Nahraďte všechny barvy zvýraznění stejnou barvou

Barva zvýraznění přidružená k dialogovému oknu „Najít a nahradit“ je aktuální vybrána v ikoně Zvýraznění.

1. Nejprve na kartě „Domů“ a ve skupině „Písmo“ klikněte na rozevírací tlačítko u příkazu „Barva zvýraznění textu“. Vyberte barvu, na kterou chcete změnit všechny barvy zvýraznění. Zde například zvolíme „Jasně zelená“.
2. Poté stiskněte „Ctrl + H“ pro spuštění dialogového okna „Najít a nahradit“.
3. Umístěte kurzor do textového pole „Najít co“.
4. Kliknutím na „Více“ zobrazíte další možnosti a poté na „Formátování“.
5. A zvolte „Zvýraznit“.
6. Dále umístěte kurzor do pole „Nahradit“ a opakujte kroky 4 a 5.
7. Nakonec klikněte na „Nahradit vše“.

Nyní jste všechny barvy zvýraznění nahradili jasně zelenou.

Metoda 2: Nahraďte konkrétní barvu zvýraznění jinou

K provedení tohoto úkolu je nutné makro.

1. Nejprve stiskněte klávesy „Alt+F11“ pro otevření editoru VBA.
2. Dále klikněte na „Normální“ projekt v levém sloupci.
3. Poté na panelu nabídek klikněte na kartu „Vložit“.
4. V rozbalovací nabídce vyberte možnost „Modul“.
5. Otevřete nový modul dvojitým kliknutím.
6. Nyní vložte následující 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. Dále klikněte na tlačítko „Spustit“ nebo stiskněte „F5“.
8. Poté do pole „Určit barvu zvýraznění“ zadejte hodnotu představující barvu, která má být nahrazena. Chcete-li získat odpovídající hodnotu konkrétní barvy, můžete navštívit tento odkaz: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
9. Například pokud chceme nahradit žlutou barvu jasně zelenou, zadáme „7“ do pole „Specifikovat barvu zvýraznění“ a klikneme na „OK“.
10. Poté do pole „Nová barva zvýraznění“ zadejte hodnotu nové barvy a klikněte na „OK“.

Zde je možný výsledek nahrazení žluté za jasně zelenou.

Vyvarujte se katastrofy ztráty dat

Slovo je tak skvělým pomocníkem při naší každodenní práci. Proto není těžké si představit katastrofu, kterou může přinést, když se zhroutí. Abyste se vyhnuli ztrátě důležitých dat, můžete sehnat a Oprava aplikace Word nástroj předem. S takovým nástrojem po ruce byste se neměli obávat ztráty dat.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zkorumpovaný xlsx a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com