Kuidas eemaldada Wordi dokumendist konkreetne esiletõstmise värv

Tänases postituses jagame teiega rõõmuga tõhusat viisi, kuidas Wordi dokumendist teatud esiletõstmise värvi eemaldada.

Ühes meie varasemas artiklis oleme juba rääkinud esiletõstetud värvide eemaldamise viisidest. Üksikasjaliku teabe saamiseks vaadake seda linki: 5 meetodit esiletõstmise või varjutuse eemaldamiseks Wordi dokumendist

Vaatame täna veel ühte juhtumit, kus dokument võib sisaldada mitut esiletõstmise värvi, et eri tüüpi sisu eristuda. Sellisel juhul ei suuda tavalised viisid ühte konkreetset esiletõstmise värvi ära tunda. Tegelikult on ainus kiire ja tõhus viis Wordi makro käivitamine.

Heitke nüüd pilk lõõtsutavale lähenemisele.

Eemaldage konkreetne esiletõstmise värv VBA kaudu

1. Kõigepealt klõpsake lindil vahekaarti „Arendaja”.
2. Seejärel klõpsake Wordis VBA redaktori käivitamiseks nuppu Visual Basic. Ja arvestades, et vahekaart "Arendaja" ei pruugi veel saadaval olla, võite selle asemel vajutada "Alt + F11".
3. Järgmisena klõpsake redaktori vasakpoolses veerus "Tavaline projekt".
4. Seejärel klõpsake menüüribal vahekaarti "Sisesta".
5. Valige rippmenüüst "Moodul".
6. Nüüd topeltklõpsake uuel moodulil, et avada kodeerimisala.
7. Kleepige moodulile järgmine 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. Seejärel klõpsake koodide käivitamiseks nuppu "Käivita" või "F5".
9. Järgmisena on kast "Esiletõstmise värv". Igal värvil on oma väärtus. Sisestage lihtsalt eemaldatava esiletõstmise värviga seotud väärtus.
10. Viimaseks, kuid mitte vähem tähtsaks, klõpsake jätkamiseks "OK".
11. Kui see on tehtud, saate sellise teatekasti:

Siin on võimalik tulemus:

Hoidke oma andmeid turvaliselt

Andmete terviklikkust on lihtne kahjustada. On aeg võtta ennetavaid meetmeid, enne kui on liiga hilja. Näiteks on kõige soovitatavam viis failide regulaarne varundamine. Veenduge alati, et teil on uusim versioon, millele saate toetuda, kui midagi ootamatut juhtub. Vastasel juhul peate läbima Sõna taastamine andmete tagasi saamiseks.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas paranda xlsx ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom