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

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

Вибрати таблицю в Word легко, натиснувши на точка-вибір-таблиця-символ у верхньому лівому куті таблиці, як показано нижче. Ви також можете вибрати таблицю за допомогою функції Вибір таблиці. Однак чи є спосіб швидкого вибору всіх таблиць одночасно в документі 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, колекцією інструментів для загальних перетворень та виділення тощо ...
Коментарі (10)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
велике спасибі, він хороша програма, але через кілька днів зупинився і вимагає пароль та ім'я користувача
Цей коментар був мінімізований модератором на сайті
чудовий макрос і дуже простий
Цей коментар був мінімізований модератором на сайті
Спершу чудовий код, але він, безперечно, пошкодив купу таблиць у Word 2010. Дуже добре зіпсував мій файл, і довелося повернутися до попередньої версії. Будьте обережні!
Цей коментар був мінімізований модератором на сайті
Чудово, що я отримав рішення за допомогою коду VBA. Дуже дякую
Цей коментар був мінімізований модератором на сайті
Наступний змінений код вибирає всі таблиці, за винятком таблиць, які мають лише один рядок: Sub SelAllTbls() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table For Every Tbl In ActiveDocument.Tables Якщо Tbl.Rows.Count > 1 Тоді Tbl.Range. Editors.Add (-1) End If Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub У наступному коді вибираються лише рядки заголовка: Sub selallHeaders() При помилці Відновлення наступного ActiveDocument.DeleteAll-EditableRanges (-1) Dim Tbl As Table For Every Tbl In ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub У мене є набагато більше таких кодів які вибирають останні рядки, усі маркери, маленькі / довгі параграфи тощо. Перегляньте моє наступне відео: https://www.youtube.com/watch?v=p_ZhufliFw8
Цей коментар був мінімізований модератором на сайті
У документі є кілька таблиць (близько 200). Я хочу вибрати лише всі ці таблиці та вставити їх у новий документ у форматі таблиці. Коли я вибираю таблиці, як описано вище, під час операції вставлення вони вставляють їх як текст, а не як таблицю. Чи можете ви мені допомогти?
Цей коментар був мінімізований модератором на сайті
Схоже, що цей макрос не працює в Word 2016
Цей коментар був мінімізований модератором на сайті
Він працює в Word 2016. Яку помилку ви отримуєте?
Цей коментар був мінімізований модератором на сайті
я вже розумію. Для коректної роботи макросів курсор повинен бути не в таблиці, коли ви викликаєте макроси. Дякую.
Цей коментар був мінімізований модератором на сайті
Дуже гарний метод. Дякую
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL