Note: The other languages of the website are Google-translated. Back to English

Jak zaznaczyć wszystkie tabele w dokumencie programu Word?

Zaznaczenie tabeli w programie Word jest łatwe, klikając przycisk symbol tabeli wyboru kropki przycisk w lewym górnym rogu tabeli, jak pokazano poniżej. Możesz także wybrać tabelę za pomocą funkcji Wybierz tabelę. Czy jest jednak sposób, aby szybko zaznaczyć wszystkie tabele naraz w dokumencie programu Word? Metody opisane w tym artykule pomogą ci przez to przejść. 


Wybierz wszystkie tabele w programie Word z kodem VBA

Z łatwością wybierz wszystkie tabele w programie Word za pomocą Kutools for Word


Wybierz wszystkie tabele w programie Word z kodem VBA

1. naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic dla aplikacji okno.

2. W otwarciu Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, Następnie skopiuj i wklej następujący kod VBA do okna Module;

Kod VBA: Wybierz wszystkie tabele w bieżącym dokumencie:

Sub selecttables()
Dim mytable As Table

For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
End Sub

3. wciśnij F5 klucz do uruchomienia kodu

Następnie wszystkie tabele są natychmiast wybierane w bieżącym dokumencie.


Z łatwością wybierz wszystkie tabele w programie Word za pomocą Kutools for Word

W porównaniu z użyciem kodu VBA do wybrania wszystkich tabel w dokumencie, Kutools for Word's Wybierz tabele narzędzie jest bardzo przydatne. Możesz użyć tej funkcji, aby wybrać tabele w zaznaczeniu lub w całym dokumencie. Wykonaj następujące czynności:

Kutools dla Worda : Ponad 100 przydatnych dodatków do Worda, bezpłatnie wypróbować bez ograniczeń w 60 dni.

Kliknij Kutools > Stoły > Wybierz tabele. Zobacz zrzut ekranu:

Uwagi: Aby wybrać zaznaczone tabele, musisz najpierw wybrać zakres, a następnie zastosować funkcję.

Następnie możesz zobaczyć wyniki w następujący sposób.

Wybierz wybrane tabele:

Wybierz tabele w całym dokumencie:

Jeśli chcesz skorzystać z bezpłatnej wersji próbnej tego narzędzia, przejdź do bezpłatnie pobrać oprogramowanie najpierw, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.


Demo: Z łatwością wybierz wszystkie tabele w programie Word za pomocą Kutools for Word



Zalecane narzędzia zwiększające produktywność programu Word

 

Kutools dla programu Word — ponad 100 zaawansowanych funkcji programu Word, oszczędzaj 50% czasu

  • Skomplikowane i powtarzalne operacje można wykonać jednorazowo w ciągu kilku sekund.
  • Wstaw wiele obrazów w folderach do dokumentu programu Word jednocześnie.
  • Scalaj i łącz wiele plików programu Word w folderach w jeden z żądaną kolejnością.
  • Podziel bieżący dokument na oddzielne dokumenty według nagłówka, podziału sekcji lub innych kryteriów.
  • Konwertuj pliki między Doc i Docx, Docx i PDF, zbiór narzędzi do typowych konwersji i zaznaczania, i tak dalej ...
Sortuj komentarze według
Komentarze (10)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
dziękuję bardzo, że to dobry program, ale po kilku dniach zatrzymał się i wymaga hasła i nazwy użytkownika
Ten komentarz został zminimalizowany przez moderatora na stronie
doskonałe makro i bardzo łatwe
Ten komentarz został zminimalizowany przez moderatora na stronie
Na początku fajny kod, ale zdecydowanie uszkodził kilka tabel w programie Word 2010. Pokręciłem mój plik całkiem nieźle i musiałem wrócić do wcześniejszej wersji. Uważać!
Ten komentarz został zminimalizowany przez moderatora na stronie
Wspaniale dostałem rozwiązanie za pomocą kodu VBA. Dziękuję bardzo
Ten komentarz został zminimalizowany przez moderatora na stronie
Poniższy zmodyfikowany kod wybiera wszystkie tabele, z wyjątkiem tabel, które mają tylko jeden wiersz: Sub SelAllTbls() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table for each Tbl In ActiveDocument.Tables Jeśli Tbl.Rows.Count > 1 Następnie Tbl.Range. Editors.Add (-1) End If Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Poniższy kod wybiera tylko wiersze nagłówka: Sub selallHeaders() On Error Resume Next ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table Dla każdej tabeli w ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Dalej ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Mam o wiele więcej takich kodów które wybierają ostatnie wiersze, wszystkie wypunktowania, małe/długie paragrafy itp. Obejrzyj mój następujący film: https://www.youtube.com/watch?v=p_ZhufliFw8
Ten komentarz został zminimalizowany przez moderatora na stronie
W dokumencie jest wiele tabel (około 200). Chcę zaznaczyć tylko te wszystkie tabele i wkleić je do nowego dokumentu w formacie tabeli. Gdy wybieram tabele zgodnie z powyższą procedurą, to podczas operacji wklejania wkleja je jako tekst, a nie jako tabelę. Możesz mi pomóc?
Ten komentarz został zminimalizowany przez moderatora na stronie
Wygląda na to, że to makra nie działają w programie Word 2016
Ten komentarz został zminimalizowany przez moderatora na stronie
Działa w programie Word 2016. Jaki błąd pojawia się?
Ten komentarz został zminimalizowany przez moderatora na stronie
Już rozumiem. Dla poprawnej pracy makr kursor nie może znajdować się w tabeli podczas wywoływania makr. Dziękuję Ci.
Ten komentarz został zminimalizowany przez moderatora na stronie
Bardzo fajna metoda. Dziękuję Ci
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL