MS Word 2016.
Mam duży dokument z setkami tabel. Chcę zmienić wszystkie właściwości tabeli, aby odznaczyć opcję „Preferowana szerokość”.
Czy można wybrać wszystkie tabele, aby zastosować tę zmianę? A może muszę je wybrać ręcznie („zaznacz wszystko” nie działa, ponieważ podświetla również normalny tekst, który wyłącza właściwości tabeli)?
Odpowiedzi:
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
po prostu użyj kursora tak, jakbyś wybrał całą linię, gdzie przechodzisz do najwyższej lewej strony strony, do sekcji marginesu, aż kursory przechylą się na prawą stronę, powiedzmy 45 stopni, a następnie zaznaczysz / podświetlisz inne również przytrzymanie przycisku sterowania po pierwszym wyborze. to jest zasadniczo wybór wielu linii na całej stronie i właśnie odkryłem po wielu poleceniach skryptu forum vb (niepraktyczne), że działa ono również dla tabel. właśnie teraz edytuję 21 stron MSDS tabel.