Kako odstraniti določeno barvo poudarka iz vašega Wordovega dokumenta

V današnji objavi z veseljem delimo z vami učinkovit način za odstranitev določene barve označevanja iz vašega Wordovega dokumenta.

V enem od naših prejšnjih člankov smo že govorili o načinih odstranjevanja poudarjenih barv. Za podrobnejše informacije se lahko obrnete na to povezavo: 5 načinov za odstranjevanje poudarjanja ali senčenja v dokumentu Word

Danes si oglejmo še en primer, da lahko dokument vsebuje več poudarjenih barv, da izstopa iz različnih vrst vsebin. V takem primeru običajni načini ne prepoznajo ene posebne poudarjene barve. Pravzaprav je edini hiter in učinkovit način zagon makra Word.

Zdaj pa si oglejte silovit pristop.

Odstranite določeno barvo poudarka prek VBA

1. Najprej in predvsem kliknite zavihek »Razvijalec« na traku.
2. Nato kliknite »Visual Basic«, da sprožite urejevalnik VBA v Wordu. Glede na to, da zavihek »Razvijalec« morda še ni na voljo, lahko namesto tega pritisnete »Alt + F11«.
3. Nato v levem stolpcu urejevalnika kliknite projekt »Normal«.
4. Nato v menijski vrstici kliknite jeziček »Vstavi«.
5. V spustnem meniju izberite »Modul«.
6. Zdaj dvokliknite nov modul, da odprete območje kodiranja.
7. V modul prilepite naslednji makro:

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. Nato kliknite gumb "Zaženi" ali pritisnite "F5" za izvajanje kod.
9. Nato je polje »Označi barvo«. Za vsako barvo obstaja vrednost. Samo vnesite vrednost, povezano z barvo poudarka, ki jo želite odstraniti.
10. Nenazadnje za nadaljevanje kliknite »V redu«.
11. Ko končate, boste prejeli naslednje sporočilo:

Tu je možen izid:

Zaščitite svoje podatke

Celovitost podatkov je lahko ogrožena. Čas je, da sprejmete preventivne ukrepe, preden bo prepozno. Najbolj priporočljiv način je na primer redno varnostno kopiranje datotek. Vedno se prepričajte, da imate najnovejšo različico, na katero se lahko zatečete, če se zgodi kaj nepričakovanega. V nasprotnem primeru boste morali iti skozi Obnovitev besed da dobite podatke nazaj.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popraviti xlsx in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com