Hogyan távolíthat el egy adott kiemelt színt a Word-dokumentumból

A mai bejegyzésben örömmel osztjuk meg veletek a Word-dokumentumból egy adott kiemelő szín eltávolításának hatékony módját.

Egyik korábbi cikkünkben már szóltunk a kiemelő színek eltávolításának módjairól. Részletes információkért tekintse meg ezt a linket: 5 módszer a kiemelések vagy árnyékolások eltávolítására a Word-dokumentumban

Ma nézzünk meg egy másik esetet, amikor egy dokumentum több kiemelési színt is tartalmazhat, hogy kiemelje a különböző típusú tartalmakat. Ilyen esetben a szokásos módszerek nem ismernek fel egy adott kiemelő színt. Ami azt illeti, az egyetlen gyors és hatékony módszer a Word makró futtatása.

Most vessen egy pillantást az ordító megközelítésre.

Távolítson el egy adott kiemelt színt VBA-n keresztül

1. Először is, kattintson a „Fejlesztő” fülre a menüszalagon.
2. Ezután kattintson a „Visual Basic” elemre a VBA-szerkesztő elindításához a Wordben. És figyelembe véve, hogy előfordulhat, hogy még nem érhető el a „Fejlesztő” fül, lenyomhatja helyette az „Alt+F11” gombot.
3. Ezután kattintson a „Normál” projektre a szerkesztő bal oldali oszlopában.
4. Ezután kattintson a „Beszúrás” fülre a menüsorban.
5. A legördülő menüben válassza a „Modul” lehetőséget.
6. Most kattintson duplán az új modulra a kódolási terület megnyitásához.
7. Illessze be a következő makrót a modulba:

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. Ezután kattintson a „Futtatás” gombra, vagy nyomja meg az „F5” gombot a kódok végrehajtásához.
9. Ezután ott van a „Kiemelés színe” mező. Minden színhez tartozik egy érték. Csak adja meg az eltávolítani kívánt kiemelési színhez tartozó értéket.
10. Végül, de nem utolsósorban kattintson az „OK” gombra a folytatáshoz.
11. Ha elkészült, egy ilyen üzenetet fog kapni:

Íme a lehetséges eredmény:

Tartsa biztonságban adatait

Az adatok integritása könnyen veszélybe kerülhet. Ideje megelőző intézkedéseket tenni, mielőtt túl késő lenne. Például a leginkább ajánlott módszer a fájlok rendszeres biztonsági mentése. Mindig győződjön meg arról, hogy rendelkezik a legújabb verzióval, hogy felkészülhessen arra az esetre, ha valami váratlan dolog történne. Ellenkező esetben át kell mennie a következőn: Word helyreállítás hogy visszakapja az adatokat.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xlsx javítás és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com