3 sposoby wsadowego usuwania koloru wypełnienia wielu kształtów w dokumencie programu Word

W tym poście z przyjemnością pokażemy Ci 3 skuteczne metody masowego usuwania koloru wypełnienia wielu kształtów w dokumencie Word.

Podczas wstawiania kształtów do dokumentu programu Word możesz również zastosować do nich kolor wypełnienia. Dodanie lub usunięcie koloru wypełnienia pojedynczego kształtu jest łatwe. Ale jeśli chodzi o przetwarzanie wsadowe, będziemy potrzebować jakiejś sztuczki.

Tym razem chcemy pokazać, jak zbiorczo usunąć kolor wypełnienia wielu kształtów w dokumencie. Możesz więc uzupełnić je pożądanymi kolorami lub po prostu zostawić kształty na pustym tle. Poniżej przedstawiono 3 metody, które mogą Ci pomóc w różnych przypadkach.

Metoda 1: Usuń kolor wypełnienia wielu kształtów na stronie

1. Przede wszystkim kliknij kartę „Strona główna” na Wstążce.
2. Następnie kliknij polecenie „Wybierz” w grupie „Edycja”.
3. Z menu rozwijanego wybierz „Okienko wyboru”.
4. Teraz w okienku „Zaznaczenie i widoczność” możesz zobaczyć wszystkie nazwy kształtów na tej stronie. Naciśnij „Ctrl”, aby wybrać potrzebne kształty.
5. Następnie kliknij „Format” na Wstążce.
6. Następnie kliknij „Wypełnienie kształtu”.
7. Z rozwijanego menu wybierz „Brak wypełnienia”.

Metoda 2: Wsadowe usuwanie koloru wypełnienia wszystkich kształtów w dokumencie

1. Przede wszystkim, jeśli karta „Deweloper” jest dostępna, kliknij ją, a następnie „Visual Basic”, aby otworzyć edytor VBA. Jeśli karta „Deweloper” nie jest aktywna, naciśnij zamiast tego „Alt+F11”.
2. Teraz w edytorze kliknij projekt „Normalny” po lewej stronie.
3. Następnie kliknij „Wstaw” na pasku menu.
4. Następnie z rozwijanego menu wybierz „Moduł”.
5. Kliknij dwukrotnie nowy moduł, aby go otworzyć i wklej tam te kody:

Sub RemoveAllShapeFill()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    objShape.Fill.Visible = False
    objShape.Line.Visible = msoTrue
  Next objShape
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

6. Na koniec kliknij przycisk „Uruchom” lub naciśnij „F5”, aby wykonać kody.

Metoda 3: Usuń kolor wypełnienia wszystkich pól tekstowych w dokumencie

Pola tekstowe należą do kategorii kształtów. Jeśli chcesz usunąć kolor wypełnienia wszystkich pól tekstowych, ale zachować inne kształty, możesz to wykorzystać.

1. Po pierwsze, powtórz kroki metody 2, aby zainstalować i uruchomić makro.
2. Tym razem zamień to makro na to:

Sub RemoveTextBoxFill()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Fill.Visible = msoFalse
      objShape.Line.Visible = msoTrue
    Else
      Exit For
    End If
  Next objShape
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Oto wynik:

Szybko odzyskaj uszkodzone dokumenty

Jeśli kiedykolwiek natkniesz się na uszkodzenie dokumentu, nie panikuj. Pamiętaj, że większość dokumentów da się odzyskać. Powinieneś po prostu wykorzystać czas i uzyskać… poprawka doc narzędzie. W dzisiejszych czasach takie narzędzie może być bardzo pomocne w odzyskiwaniu 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 naprawa xls i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com