Ako odstrániť konkrétnu farbu zvýraznenia z dokumentu Word

V dnešnej strost, radi sa s vami podelíme o efektívny spôsob odstránenia konkrétnej farby zvýraznenia z dokumentu Word.

V jednom z našich predchádzajúcich článkov sme už hovorili o spôsoboch odstránenia farieb zvýraznenia. Podrobné informácie nájdete na tomto odkaze: 5 metód na odstránenie zvýraznenia alebo tieňovania v dokumente Word

Dnes sa pozrime na ďalší prípad, keď dokument môže obsahovať viac farieb zvýraznenia, aby vynikol odlišný typ obsahu. V takom prípade obvyklé spôsoby nedokážu rozpoznať jednu konkrétnu farbu zvýraznenia. Jediným rýchlym a efektívnym spôsobom je spustenie makra programu Word.

Teraz sa pozrite na nasledujúci prístup.

Odstráňte konkrétnu farbu zvýraznenia pomocou VBA

1. V prvom radeost, kliknite na kartu „Vývojár“ na páse s nástrojmi.
2. Potom kliknutím na „Visual Basic“ spustíte editor VBA v programe Word. A keďže karta „Vývojár“ ešte nemusí byť k dispozícii, môžete namiesto toho stlačiť kombináciu klávesov „Alt + F11“.
3. Ďalej kliknite na „Normálny“ projekt v ľavom stĺpci editora.
4. Potom kliknite na karte „Vložiť“ na paneli s ponukami.
5. V rozbaľovacej ponuke zvoľte možnosť Modul.
6. Teraz dvakrát kliknite na nový modul, aby ste otvorili oblasť kódovania.
7. Vložte nasledujúce 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. Potom kliknite na tlačidlo „Spustiť“ alebo na spustenie kódu stlačte kláves „F5“.
9. Ďalej je tu políčko „Zvýrazniť farbu“. Pre každú farbu existuje hodnota. Stačí zadať hodnotu súvisiacu s farbou zvýraznenia, ktorá sa má odstrániť.
10. V neposlednom rade pokračujte kliknutím na „OK“.
11. Po dokončení dostanete túto správu:

Možný výsledok:

Chráňte svoje údaje

Integrita údajov môže byť ľahko narušená. Je čas prijať preventívne opatrenia, skôr než bude neskoro. Napríklad most odporúčaným spôsobom je pravidelné zálohovanie súborov. Keď sa stane niečo neočakávané, vždy sa uistite, že máte nainštalovanú najnovšiu verziu. V opačnom prípade budete musieť prejsť Obnova slov získať dáta späť.

Ú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 opraviť xlsx a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S