Niestety, nie jest możliwe wybranie wszystkich tabel naraz za pomocą pewnego zgrabnego skrótu. Na szczęście nawet początkujący może użyć prostego makra, a zadanie jest zakończone w ciągu kilku minut.
Począwszy od wersji Word 2010 zakładka „Deweloper” powinna już być domyślnie pokazywana, ale jeśli nie, dostęp do niej jest możliwy za pośrednictwem zintegrowanego edytora wstążki. W tych aplikacjach edytor wstążek jest dostępny z menu Plik > Opcje > Dostosuj wstążkę . Zaznacz pole wyboru Developer .
Po zakończeniu kliknij kartę Deweloper > przycisk Makra
W nowym oknie wpisz „Autofit_All_Tables” w wyświetlonym polu tekstowym, a następnie kliknij przycisk Utwórz, aby utworzyć nowe makro.
Wklej następujący kod w białym polu tekstowym, całkowicie zastępując istniejący kod.
Sub Autofit_All_Tables()
Application.ScreenUpdating = False
Dim Tbl As Table
For Each Tbl In ActiveDocument.Tables
Tbl.AutoFitBehavior (wdAutoFitWindow)
Tbl.AllowAutoFit = True
Next
Application.ScreenUpdating = True
Application.ScreenRefresh
MsgBox "Done", vbOKOnly
End Sub
Następnie kliknij zieloną strzałkę Uruchom (znajdującą się w czerwonym polu na obrazku).
Powinieneś dostać małe okienko z napisem „Gotowe”. Zamknij okno programisty VBA i usiądź wygodnie na krześle, wyglądając na zadowolonego.
Uwaga: Jeśli chcesz ustawić szerokość na procentową część szerokości między marginesami, utwórz makro o nazwie „Set_Global_Table_Width” i wklej poniższy kod. Tutaj szerokość jest ustawiona na 100 (tj. 100%), ale możesz ją zmienić na dowolny procent po wklejeniu go do okna makra programistycznego Word VBA pokazanego powyżej.
Sub Set_Global_Table_Width()
Dim pT As Word.Table
For Each pT In ActiveDocument.Tables
pT.PreferredWidthType = wdPreferredWidthPercent
pT.PreferredWidth = 100
Next
MsgBox "Done"
End Sub
