U današnjem postu, drago nam je podijeliti s vama učinkovit način uklanjanja određene boje isticanja iz vašeg Word dokumenta.
U jednom od naših prošlih članaka već smo govorili o načinima uklanjanja isticanja boja. Za detaljne informacije možete pogledati ovu poveznicu: 5 metoda za uklanjanje isticanja ili sjenčanja u vašem Word dokumentu
Danas, pogledajmo još jedan slučaj da dokument može sadržavati više istaknutih boja kako bi se istaknule različite vrste sadržaja. U takvom slučaju, uobičajeni načini ne prepoznaju jednu specifičnu boju isticanja. Zapravo, jedini brz i učinkovit način je pokretanje Word makronaredbe.
Sada pogledajte ovaj pristup.
Uklonite određenu boju isticanja putem VBA
- Prvo i najvažnije, kliknite karticu "Razvojni programer" na vrpci.
- Zatim kliknite "Visual Basic" da pokrenete VBA editor u Wordu. A s obzirom na to da možda još nemate dostupnu karticu "Developer", umjesto toga možete pritisnuti "Alt+ F11".
- Zatim kliknite "Normalni" projekt u lijevom stupcu uređivača.
- Zatim kliknite karticu "Umetni" na traci izbornika.
- Na padajućem izborniku odaberite "Modul".
- Sada dvaput kliknite na novi modul da biste otvorili područje kodiranja.
- Zalijepite sljedeću makronaredbu na modul:
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
- Zatim kliknite gumb "Pokreni" ili pritisnite "F5" za izvršenje kodova.
- Zatim, tu je okvir "Boja za označavanje". Za svaku boju postoji vrijednost. Samo unesite vrijednost koja se odnosi na boju isticanja koju želite ukloniti.
- Posljednje, ali ne i najmanje važno, kliknite "OK" za nastavak.
- Kada bude gotovo, dobit ćete ovakav okvir s porukom:
Evo mogućeg ishoda:
Čuvajte svoje podatke na sigurnom
Integritet podataka može se lako ugroziti. Vrijeme je da poduzmete preventivne mjere prije nego što bude prekasno. Na primjer, najpreporučljiviji način je redovito izrađivati sigurnosne kopije datoteka. Uvijek se pobrinite da imate najnoviju verziju kojoj možete pribjeći ako se dogodi nešto neočekivano. Inače ćete morati proći kroz Oporavak riječi da biste dobili podatke natrag.
Uvod za autora:
Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti xlsx i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com