Jak zmienić styl dla wszystkich tabel w programie Microsoft Word

Microsoft Word pozwala zastosować formatowanie doduże fragmenty enmasse tekstu. Możesz skopiować formatowanie zastosowane do jednego kawałka tekstu i zastosować je do całych akapitów i sekcji za pomocą zaledwie kilku kliknięć. Niestety to samo nie dotyczy tabel. Jeśli chcesz zmienić styl dla wszystkich tabel w danym dokumencie, musisz wybrać każdy z nich osobno i zmienić styl. Alternatywą jest użycie do tego makra.

Znajdź styl tabeli

Zanim utworzysz makro, musisz je znaleźćnazwa stylu tabeli, którą chcesz zastosować. To całkiem proste. Otwórz dokument Word, dla którego chcesz zmienić style tabel. Kliknij wewnątrz tabeli, a następnie przejdź do karty Projektowanie na karcie Narzędzia tabel.

Najedź kursorem myszy na styl tabeli, który chcesz zastosować do wszystkich tabel, a podpowiedź pokaże, jak się nazywa. Zapisz nazwę i jesteś gotowy do utworzenia makra.

Makro stylu tabeli

Włącz kartę Deweloper w programie Word, przechodząc do Plik> Opcje> Dostosuj wstążkę. Włącz pasek narzędzi programisty, a następnie wróć do dokumentu.

Na karcie Deweloper i kliknij Makra. Nadaj mu następującą nazwę;

ApplyTableStyle

Kliknij przycisk Utwórz i wprowadź następujące dane w kodzienależy jednak edytować ten wiersz: tbl.Style = „Medium Shading 2 - Accent 1”. Zamień bit w cudzysłowach na nazwę stylu tabeli skopiowanego w poprzednim kroku. Nie usuwaj znaków cudzysłowu z kodu. Po prostu wprowadź nazwę stylu tabeli i uruchom ją.

Sub ApplyTableStyle()
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
tbl.Style = "Medium Shading 2 - Accent 1"
Next
End Sub

To wszystko co musisz zrobić. Po uruchomieniu makra automatycznie zmieni styl dla wszystkich tabel. Jeśli kiedykolwiek będziesz musiał użyć innego stylu tabeli, musisz usunąć to makro, ponieważ proaktywnie zmienia styl wszystkich tabel na określony w makrze.

Jeśli kiedykolwiek będziesz musiał zmienić styl makraobowiązuje, musisz edytować kod i zastąpić nazwę stylu, który chcesz zastosować. Makro stosuje style do wszystkich bieżących i wszystkich nowych tabel w dokumencie. Byłoby to oczywiście łatwiejsze, gdyby Microsoft Word miał wbudowaną opcję, aby to zrobić. Wygląda na dziwną wadę aplikacji.