Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Zarejestruj się  \/ 
x

or

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 for Application 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 for Word : Ponad 100 przydatnych dodatków do Worda, bezpłatnie wypróbować bez ograniczeń w ciągu 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 For Word - więcej niż 100 zaawansowanych funkcji dla 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 ...
Przeczytaj więcej Pobierz teraz Zakup
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alex · 4 years ago
    It seeems that this macros does not work in Word 2016
    • To post as a guest, your comment is unpublished.
      Suril · 4 years ago
      It works in Word 2016. What error are you getting?
      • To post as a guest, your comment is unpublished.
        Alex · 4 years ago
        I understand already.
        For correct work macros cursor must to be not in table when you call macros.
        Thank you.
  • To post as a guest, your comment is unpublished.
    Iqbal · 4 years ago
    There are multiple tables in a document (about 200). I want to select all these tables only and paste them in a new document in the table format. When I select the tables as per above procedure then during paste operation it pastes them as text and not as table. Can you please help me?
  • To post as a guest, your comment is unpublished.
    Suril · 4 years ago
    The following modified code selects all tables, except tables having only one row:
    Sub SelAllTbls()
    ActiveDocument.DeleteAllEditableRanges (-1)
    Dim Tbl As Table
    For Each Tbl In ActiveDocument.Tables
    If Tbl.Rows.Count > 1 Then
    Tbl.Range.Editors.Add (-1)
    End If
    Next
    ActiveDocument.SelectAllEditableRanges (-1)
    ActiveDocument.DeleteAllEditableRanges (-1)
    End Sub

    The following code select only the header rows:
    Sub selallHeaders()
    On Error Resume Next
    ActiveDocument.DeleteAllEditableRanges (-1)
    Dim Tbl As Table
    For Each Tbl In ActiveDocument.Tables
    Tbl.Rows(1).Range.Editors.Add (-1)
    Next
    ActiveDocument.SelectAllEditableRanges (-1)
    ActiveDocument.DeleteAllEditableRanges (-1)
    End Sub

    I have many more such codes that select last rows, all bullets, small / long paras, etc. Watch my following video:
    https://www.youtube.com/watch?v=p_ZhufliFw8
  • To post as a guest, your comment is unpublished.
    Vinoth Murali · 4 years ago
    Wonderful I got the solution by using the VBA code. Thank you so much
  • To post as a guest, your comment is unpublished.
    JPF · 5 years ago
    Nifty code at first but it definitely corrupted a bunch of tables in Word 2010. Screwed up my file pretty good and had to revert back to an earlier version. Be wary!
  • To post as a guest, your comment is unpublished.
    rodrigo · 6 years ago
    excellent macro and very easy
  • To post as a guest, your comment is unpublished.
    refaat · 7 years ago
    thank you so much
    he is good program but after few days stopped and require password and user name