Kaip pašalinti konkrečią paryškinimo spalvą iš „Word“ dokumento

Šiandienos įraše džiaugiamės galėdami pasidalinti su jumis veiksmingu būdu pašalinti konkrečią paryškinimo spalvą iš „Word“ dokumento.

Viename iš ankstesnių straipsnių jau kalbėjome apie paryškintų spalvų pašalinimo būdus. Norėdami gauti išsamesnės informacijos, galite peržiūrėti šią nuorodą: 5 būdai, kaip pašalinti paryškinimą arba šešėliavimą „Word“ dokumente

Šiandien pažvelkime į kitą atvejį, kai dokumente gali būti kelios paryškinimo spalvos, kad išsiskirtų įvairaus tipo turinys. Tokiu atveju įprastais būdais nepavyksta atpažinti vienos konkrečios paryškinimo spalvos. Tiesą sakant, vienintelis greitas ir efektyvus būdas yra paleisti „Word“ makrokomandą.

Dabar pažvelkite į skambėjimo metodą.

Pašalinkite konkrečią paryškinimo spalvą naudodami VBA

1. Visų pirma, juostelėje spustelėkite skirtuką „Kūrėjas“.
2. Tada spustelėkite „Visual Basic“, kad paleistumėte VBA redaktorių „Word“. Ir atsižvelgiant į tai, kad galbūt dar neturite skirtuko „Kūrėjas“, galite paspausti „Alt + F11“.
3. Tada spustelėkite „Normalus“ projektas kairiajame redaktoriaus stulpelyje.
4. Tada meniu juostoje spustelėkite skirtuką „Įterpti“.
5. Išskleidžiamajame meniu pasirinkite „Modulis“.
6. Dabar dukart spustelėkite naują modulį, kad atidarytumėte kodavimo sritį.
7. Įklijuokite šią makrokomandą į 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

8. Tada spustelėkite mygtuką „Vykdyti“ arba paspauskite „F5“, kad paleistumėte kodus.
9. Toliau yra langelis „Paryškinti spalvą“. Kiekviena spalva turi savo vertę. Tiesiog įveskite reikšmę, susijusią su paryškinimo spalva, kurią norite pašalinti.
10. Paskutinis, bet ne mažiau svarbus dalykas, spustelėkite „Gerai“, kad tęstumėte.
11. Kai tai bus padaryta, gausite tokį pranešimo laukelį:

Štai galimas rezultatas:

Saugokite savo duomenis

Duomenų vientisumas gali būti lengvai pažeistas. Pats laikas imtis prevencinių veiksmų, kol dar nevėlu. Pavyzdžiui, labiausiai rekomenduojama reguliariai kurti failų atsargines kopijas. Visada įsitikinkite, kad turite naujausią versiją, kad galėtumėte pasinaudoti, jei nutiktų kas nors netikėto. Priešingu atveju turėsite atlikti šiuos veiksmus: Žodžių atkūrimas norėdami susigrąžinti duomenis.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti xlsx bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com