Jak zmienić styl wszystkich tabel w programie Microsoft Word

Aby nadać istniejącym tabelom w programie Microsoft Word ten sam wygląd, uruchom krótkie makro VBA w aplikacji Word na komputerze. Makro przechodzi przez tabele w głównej części dokumentu i przypisuje wybrany styl tabeli. Galeria Projekt tabeli formatuje wybraną tabelę; makro stosuje jeden styl w całym dokumencie za jednym razem. Osobne ustawienie programu Word kontroluje tabele, które utworzysz później.

Te zrzuty ekranu i ścieżki menu dotyczą programu Word w systemie Windows. Program Word dla komputerów Mac również obsługuje makra, choć jego menu różnią się od siebie. Program Word dla sieci Web może wyświetlić wynik, ale nie może uruchamiać makr VBA. Zapisz kopię dokumentu przed rozpoczęciem.

1. Znajdź dokładną nazwę stylu tabeli

Kliknij wewnątrz tabeli, aby wyświetlić kontekstową kartę Projektowanie tabeli . Otwórz galerię Style tabeli i wskaż żądany styl. Zapisz nazwę widoczną w podpowiedzi; makro wymaga dokładnej nazwy, ze spacjami i znakami interpunkcyjnymi. Jeśli styl znajduje się już w dokumencie, możesz go tam wybrać. Microsoft opisuje kontrolki formatowania tabeli na karcie Projektowanie tabeli .

2. Pokaż kartę Deweloper

W programie Word dla systemu Windows wybierz Plik > Opcje > Dostosuj wstążkę . W sekcji Karty główne zaznacz opcję Deweloper , a następnie kliknij przycisk OK . W programie Word dla komputerów Mac otwórz Word > Preferencje > Wstążka i pasek narzędzi , wybierz Dostosuj wstążkę > Karty główne , zaznacz opcję Deweloper i zapisz. Zobacz instrukcje firmy Microsoft dotyczące wyświetlania karty Deweloper .

3. Utwórz makro w dokumencie

Na karcie Deweloper wybierz Makra . Wprowadź ApplyTableStyleToAllTablesnazwę makra. Na liście Makra w zaznacz bieżący dokument, aby zapisać w nim makro, a następnie kliknij Utwórz . Program Word otworzy Edytor Visual Basic. Poniższe kroki są zgodne z instrukcją firmy Microsoft dotyczącą tworzenia i uruchamiania makr .

4. Dodaj kod w stylu tabeli

W edytorze zastąp przykładowy kod poniższym. Zmień tylko słowa w cudzysłowie na dokładną nazwę stylu z galerii; zachowaj cudzysłowy i resztę kodu.

Sub ApplyTableStyleToAllTables()
    Dim tbl As Table

    For Each tbl In ActiveDocument.Tables
        tbl.Style = "REPLACE WITH YOUR EXACT STYLE NAME"
    Next tbl
End Sub

Właściwość akceptuje nazwę stylu, więc błąd ortograficzny lub interpunkcyjny może uniemożliwić programowi Word znalezienie stylu. Sprawdź nazwę przed uruchomieniem makra. Pętla korzysta z kolekcji dokumentu ; Microsoft zauważa Table.Style,Tables że ​​liczba kolekcji dokumentu obejmuje główny wątek (treść dokumentu) w odniesieniu do tabel . Tabele w nagłówkach, stopkach lub innych zakresach wątków mogą wymagać osobnej obsługi.

5. Uruchom makro

Zamknij Edytor Visual Basic, aby powrócić do programu Word. Wybierz kolejno Deweloper > Makra , wybierz ApplyTableStyleToAllTables, a następnie Uruchom . Program Word zmieni przypisanie stylu dla każdej tabeli w treści głównej aktywnego dokumentu. Jeśli masz kilka otwartych dokumentów, upewnij się, że aktywny jest właściwy dokument przed jego uruchomieniem.

6. Przejrzyj i zapisz wynik

Sprawdź tabele pod kątem czytelnych nagłówków, obramowań i cieniowania. Opcje stylu tabeli, takie jak Wiersz nagłówka i Wiersze paskowane , lub formatowanie zastosowane ręcznie do poszczególnych komórek, mogą sprawić, że dwie tabele używające tego samego stylu będą wyglądać inaczej.

Aby zachować makro do późniejszego uruchomienia, zapisz plik jako dokument Worda z obsługą makr (.docm) . Zapisanie wyniku w zwykłej .docxkopii zachowuje formatowanie tabeli, ale nie zachowuje kodu VBA. Word dla sieci Web może otworzyć plik, ale makra działają tylko w aplikacji na komputerze; zapoznaj się z przewodnikiem.docm Microsoftu „Przeglądarka kontra komputer stacjonarny” .

Ustaw styl dla tabel, które dodasz później

Powyższa pętla zmienia istniejące tabele podczas jej uruchomienia. Nie nadaje ona automatycznie stylu każdej tabeli, którą wstawisz w przyszłości. Word ma osobną metodę VBA do ustawiania domyślnego stylu dla nowo tworzonych tabel. Dodaj i uruchom to osobne makro, jeśli chcesz, aby tak się stało; zastąp symbol zastępczy dokładnie taką samą nazwą stylu:

Sub SetDefaultTableStyleForNewTables()
    ActiveDocument.SetDefaultTableStyle _
        Style:="REPLACE WITH YOUR EXACT STYLE NAME", _
        SetInTemplate:=False
End Sub

Microsoft dokumentuje SetDefaultTableStyle jako ustawienie dla nowo tworzonych tabel. Ustawienie SetInTemplateto Truezapisuje również styl w załączonym szablonie; pozostaw je, Falsejeśli chcesz zmienić tylko ustawienia domyślne dokumentu.

Uwaga dotycząca bezpieczeństwa makr

Uruchamiaj tylko te makra, które rozumiesz i którym ufasz. Jeśli program Word blokuje makra, administrator w pracy lub szkole może kontrolować to ustawienie. Nie włączaj globalnie wszystkich makr tylko po to, aby uruchomić ten kod; zapoznaj się ze wskazówkami dotyczącymi bezpieczeństwa makr firmy Microsoft lub skontaktuj się z administratorem.