Jak odebrat konkrétní barvu zvýraznění z dokumentu Word

V dnešním příspěvku se s vámi rádi podělíme o efektivní způsob, jak z dokumentu Word odstranit určitou barvu zvýraznění.

V jednom z našich předchozích článků jsme již hovořili o způsobech odstranění barev zvýraznění. Podrobné informace najdete na tomto odkazu: 5 metod k odstranění zvýraznění nebo stínování v dokumentu Word

Dnes se podívejme na další případ, kdy dokument může obsahovat více barev zvýraznění, aby vynikl odlišný typ obsahu. V takovém případě obvyklé způsoby nerozpoznají jednu konkrétní barvu zvýraznění. Jediným rychlým a efektivním způsobem je ve skutečnosti spuštění makra aplikace Word.

Nyní se podívejte na následující přístup.

Odstraňte konkrétní barvu zvýraznění pomocí VBA

1. Nejprve klikněte na pásu karet na kartu „Vývojář“.
2. Poté kliknutím na „Visual Basic“ spusťte editor VBA v aplikaci Word. A vzhledem k tomu, že kartu „Vývojář“ ještě nemáte k dispozici, můžete místo toho stisknout „Alt + F11“.
3. Dále klikněte na „Normální“ projekt v levém sloupci v editoru.
4. Poté na panelu nabídek klikněte na kartu „Vložit“.
5. V rozbalovací nabídce zvolte „Modul“.
6. Nyní poklepejte na nový modul a otevřete oblast kódování.
7. Vložte následující makro do modulu:

Sub RemoveSpecificHighlightColor()
  Dim objDoc As Document
  Dim objRange As Range
  Dim strHighlightColor As String
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strHighlightColor = InputBox("Choose a Highlight colour to remove (enter the value):" & vbNewLine & _
                      vbTab & "Auto" & vbTab & vbTab & "0" & vbNewLine & _
                      vbTab & "Black" & vbTab & vbTab & "1" & vbNewLine & _
                      vbTab & "Blue" & vbTab & vbTab & "2" & vbNewLine & _
                      vbTab & "BrightGreen" & vbTab & "4" & vbNewLine & _
                      vbTab & "DarkBlue" & vbTab & vbTab & "9" & vbNewLine & _
                      vbTab & "DarkRed" & vbTab & vbTab & "13" & vbNewLine & _
                      vbTab & "DarkYellow" & vbTab & "14" & vbNewLine & _
                      vbTab & "Gray25" & vbTab & vbTab & "16" & vbNewLine & _
                      vbTab & "Gray50" & vbTab & vbTab & "15" & vbNewLine & _
                      vbTab & "Green" & vbTab & vbTab & "11" & vbNewLine & _
                      vbTab & "Pink" & vbTab & vbTab & "5" & vbNewLine & _
                      vbTab & "Red" & vbTab & vbTab & "6" & vbNewLine & _
                      vbTab & "Teal" & vbTab & vbTab & "10" & vbNewLine & _
                      vbTab & "Turquoise" & vbTab & "3" & vbNewLine & _
                      vbTab & "Violet" & vbTab & vbTab & "12" & vbNewLine & _
                      vbTab & "White" & vbTab & vbTab & "8" & vbNewLine & _
                      vbTab & "Yellow" & vbTab & vbTab & "7", "Highlight Color")
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
 
      Do While .Execute
        If Selection.Range.HighlightColorIndex = strHighlightColor Then
          Set objRange = Selection.Range
          objRange.HighlightColorIndex = wdNoHighlight
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  MsgBox ("The chosen highlight color has been removed in the document.")
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

8. Poté spusťte kódy kliknutím na tlačítko „Spustit“ nebo stisknutím klávesy „F5“.
9. Dále je zde pole „Barva zvýraznění“. Pro každou barvu existuje hodnota. Jednoduše zadejte hodnotu související s barvou zvýraznění, která má být odstraněna.
10. V neposlední řadě pokračujte kliknutím na „OK“.
11. Po dokončení obdržíte takové okno se zprávou:

Možný výsledek:

Chraňte své údaje

Integrita dat může být snadno ohrožena. Je čas podniknout preventivní opatření, než bude příliš pozdě. Například nejvíce doporučovaným způsobem je pravidelné zálohování souborů. Vždy se ujistěte, že máte nejnovější verzi, kterou můžete použít, pokud se stane něco neočekávaného. Jinak budete muset projít Obnova slov získat data zpět.

Ú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ě opravit xlsx a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com