2 Przydatne metody zastępowania koloru podświetlenia w dokumencie programu Word

W tym artykule z przyjemnością przedstawiamy 2 przydatne metody zastępowania koloru podświetlenia w dokumencie programu Word.

Czasami możesz wyróżnić różne treści różnymi kolorami. Jednak w przeciwieństwie do koloru czcionki nie można użyć funkcji „Znajdź i zamień”, aby znaleźć tekst w określonym kolorze podświetlenia i zastąpić go innym.

Dlatego będziemy potrzebować pewnych obejść. Poniżej przedstawiono 2 sposoby dostępne dla różnych przypadków.

Metoda 1: Zastąp wszystkie wyróżnione kolory tym samym

Kolor podświetlenia skojarzony z oknem dialogowym „Znajdź i zamień” jest aktualnie wybranym kolorem zaznaczenia.

1. Przede wszystkim w zakładce „Strona główna” iw grupie „Czcionka” kliknij przycisk rozwijany przy poleceniu „Kolor podświetlenia tekstu”. Wybierz kolor, na który chcesz zmienić wszystkie kolory podświetlenia. Na przykład wybieramy tutaj „Jasnozielony”.
2. Następnie naciśnij „Ctrl + H”, aby wywołać okno dialogowe „Znajdź i zamień”.
3. Umieść kursor w polu tekstowym „Znajdź co”.
4. Kliknij „Więcej”, aby wyświetlić więcej opcji i kliknij „Formatuj”.
5. I wybierz „Podświetl”.
6. Następnie umieść kursor w polu „Zamień na” i powtórz kroki 4 i 5.
7. Na koniec kliknij „Zamień wszystko”.

Teraz zastąpiłeś wszystkie kolory podświetlenia jasnozielonym.

Metoda 2: Zastąp określony kolor podświetlenia innym

Do wykonania tego zadania wymagane jest makro.

1. Przede wszystkim naciśnij „Alt+F11”, aby otworzyć edytor VBA.
2. Następnie kliknij „Normalny” projekt w lewej kolumnie.
3. Następnie kliknij zakładkę „Wstaw” na pasku menu.
4. I wybierz „Moduł” z tego menu rozwijanego.
5. Otwórz nowy moduł, klikając dwukrotnie.
6. Teraz wklej następujące kody:

Sub ReplaceOneHighlightColorToAnother()
  Dim strFindColor As String
  Dim strReplaceColor As String
  Dim objDoc As Document
  Dim objRange As Range
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  strFindColor = InputBox("Specify a color (enter the value):", "Specify Highlight Color")
  strReplaceColor = InputBox("Specify a new color (enter the value):", "New Highlight Color")
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
 
      Do While .Execute
        If Selection.Range.HighlightColorIndex = strFindColor Then
          Set objRange = Selection.Range
          objRange.HighlightColorIndex = strReplaceColor
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  Application.ScreenUpdating = True
End Sub

7. Następnie kliknij przycisk „Uruchom” lub naciśnij „F5”.
8. Następnie w polu „Określ kolor podświetlenia” wprowadź wartość reprezentującą kolor, który ma zostać zastąpiony. Aby uzyskać odpowiednią wartość określonego koloru, możesz odwiedzić ten link: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
9. Na przykład, jeśli chcemy zastąpić żółty kolor jasnozielonym, wpisujemy „7” w polu „Określ kolor podświetlenia” i klikamy „OK”.
10. Następnie w polu „Nowy kolor podświetlenia” wprowadź wartość nowego koloru i kliknij „OK”.

Oto możliwy wynik zastąpienia żółtego jasnozielonym.

Uniknij katastrofy związanej z utratą danych

Słowo jest tak wielkim pomocnikiem w naszej codziennej pracy. Dlatego nietrudno sobie wyobrazić katastrofę, jaką może przynieść, gdy się zawali. Aby uniknąć utraty krytycznych danych, możesz zdobyć plik Poprawka słów narzędzie z góry. Mając takie narzędzie pod ręką, nie musisz się martwić o utratę danych.

Wprowadzenie autora:

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