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 ako dokument Dim objRange ako rozsah Dim strHighlightColor ako reťazec Application.ScreenUpdating = False Set objDoc = ActiveDocument strHighlightColor = InputBox ("Vyberte farbu zvýraznenia, ktorú chcete odstrániť (zadajte hodnotu):" & 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 &" tyrkysová "& 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 Potom nastavte objRange = Selection.Range objRange. HighlightColorIndex = wdNoHighlight Selection.Collapse wdCollapseEnd End If Loop End With End with MsgBox ("Zvolená farba zvýraznenia bola v dokumente odstránená.") Application.ScreenUpdating = True Set objDoc = nič 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