Jak usunąć określony kolor podświetlenia z dokumentu programu Word

W dzisiejszym poście z przyjemnością podzielimy się z Wami skuteczną metodą usuwania określonego koloru wyróżnienia z dokumentu Word.

W jednym z naszych poprzednich artykułów omówiliśmy już sposoby usuwania podświetlonych kolorów. Aby uzyskać szczegółowe informacje, możesz skorzystać z tego linku: 5 metod usuwania podświetlenia lub cieniowania w dokumencie programu Word

Dzisiaj przyjrzyjmy się innemu przypadkowi, w którym dokument może zawierać wiele kolorów wyróżnienia, aby wyróżnić różne typy treści. W takim przypadku zwykłe sposoby nie pozwalają rozpoznać jednego konkretnego koloru podświetlenia. Właściwie jedynym szybkim i skutecznym sposobem jest uruchomienie makra programu Word.

Teraz spójrz na podejście wrzeszczące.

Usuń określony kolor podświetlenia za pomocą VBA

1. Przede wszystkim kliknij kartę „Deweloper” na wstążce.
2. Następnie kliknij „Visual Basic”, aby uruchomić edytor VBA w programie Word. A biorąc pod uwagę, że możesz nie mieć jeszcze dostępnej karty „Deweloper”, możesz zamiast tego nacisnąć „Alt + F11”.
3. Następnie kliknij „Normalny” projekt w lewej kolumnie w edytorze.
4. Następnie kliknij zakładkę „Wstaw” na pasku menu.
5. Z rozwijanego menu wybierz „Moduł”.
6. Teraz kliknij dwukrotnie nowy moduł, aby otworzyć obszar kodowania.
7. Wklej do modułu następujące 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. Następnie kliknij przycisk „Uruchom” lub naciśnij „F5”, aby wykonać kody.
9. Następnie znajduje się pole „Kolor podświetlenia”. Każdy kolor ma swoją wartość. Wystarczy wpisać wartość związaną z kolorem podświetlenia, który ma zostać usunięty.
10. Na koniec kliknij „OK”, aby kontynuować.
11. Po zakończeniu otrzymasz takie okno wiadomości:

Oto możliwy wynik:

Chroń swoje dane

Integralność danych może być łatwo naruszona. Czas podjąć działania zapobiegawcze, zanim będzie za późno. Na przykład, najbardziej zalecanym sposobem jest regularne tworzenie kopii zapasowych plików. Zawsze upewnij się, że posiadasz najnowszą wersję, aby móc z niej skorzystać w razie nieoczekiwanych zdarzeń. W przeciwnym razie będziesz musiał przejść przez… Odzyskiwanie słów aby odzyskać dane.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawić xlsx i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com