Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як вибрати всі таблиці в документі Word?

Вибрати таблицю в Word легко, натиснувши на dot-select-table-symbol у верхньому лівому куті таблиці, як показано нижче. Ви також можете вибрати таблицю за допомогою функції Вибір таблиці. Однак чи є спосіб швидкого вибору всіх таблиць одночасно в документі Word? Методи в цій статті допоможуть вам це пройти. 


Виділіть усі таблиці в Word із кодом VBA

Легко вибирайте всі таблиці в Word за допомогою Kutools для Word


Виділіть усі таблиці в Word із кодом VBA

1. Прес інший + F11 ключі, щоб відкрити Microsoft Visual Basic для програми вікна.

2. На відкритті Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі, Потім скопіюйте та вставте наступний код VBA у вікно модуля;

Код VBA: Виберіть усі таблиці поточного документа:

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 Натисніть кнопку F5 клавіша для запуску коду

Потім усі таблиці відбираються у поточному документі негайно.


Легко вибирайте всі таблиці в Word за допомогою Kutools для Word

Порівняно з використанням коду VBA для виділення всіх таблиць у документі, Kutools для Word Виберіть таблиці утиліта досить зручна. Ви можете використовувати цю функцію для вибору таблиць у виділенні або цілого документа. Будь ласка, виконайте наступне:

Kutools для Word : Маючи понад 100 зручних надбудов Word, безкоштовно спробувати без обмежень протягом 60 днів.

Натисніть Кутулс > таблиці > Виберіть таблиці. Дивіться знімок екрана:

примітки: Для вибору таблиць у виборі потрібно спочатку вибрати діапазон, а потім застосувати функцію.

Тоді ви можете побачити результати наступним чином.

Виберіть таблиці на вибір:

Виберіть таблиці в цілому документі:

Якщо ви хочете отримати безкоштовну пробну версію цієї утиліти, перейдіть на безкоштовно завантажити програмне забезпечення - спочатку, а потім перейдіть до застосування операції, як описано вище.


Демонстрація: Легко вибирайте всі таблиці в Word за допомогою Kutools для Word




Рекомендовані засоби підвищення продуктивності слів

 

Kutools для Word - Більше 100 вдосконалених функцій для Word, економите свій 50% часу

  • Складні та повторювані операції можна виконати одноразово за кілька секунд.
  • Вставте кілька зображень між папками в документ Word одночасно.
  • Об’єднайте та об’єднайте декілька файлів Word у папках в одне із потрібним замовленням.
  • Поділіть поточний документ на окремі документи відповідно до заголовка, розділу розділу чи інших критеріїв.
  • Перетворюйте файли між Doc та Docx, Docx та PDF, колекцією інструментів для загальних перетворень та виділення тощо ...

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