V dnešnom príspevku sa s vami radi podelíme o efektívny spôsob, ako odstrániť konkrétnu farbu zvýraznenia z dokumentu programu 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
- Najprv kliknite na kartu „Vývojár“ na páse s nástrojmi.
- 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“.
- Ďalej kliknite na „Normálny“ projekt v ľavom stĺpci editora.
- Potom kliknite na karte „Vložiť“ na paneli s ponukami.
- V rozbaľovacej ponuke zvoľte možnosť Modul.
- Teraz dvakrát kliknite na nový modul, aby ste otvorili oblasť kódovania.
- 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
- Potom kliknite na tlačidlo „Spustiť“ alebo na spustenie kódu stlačte kláves „F5“.
- Ď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ť.
- V neposlednom rade pokračujte kliknutím na „OK“.
- Po dokončení dostanete túto správu:
Možný výsledok:
Chráňte svoje údaje
Integrita údajov sa dá ľahko ohroziť. Je čas prijať preventívne opatrenia skôr, ako bude neskoro. Napríklad najodporúčanejším spôsobom je pravidelné zálohovanie súborov. Vždy sa uistite, že máte najnovšiu verziu, ku ktorej sa môžete vrátiť, ak sa stane niečo neočakávané. V opačnom prípade budete musieť prejsť celým procesom... 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