Прескочи на основното съдържание

Как да изберете всички таблици в документ на Word?

Автор: Слънце Последна промяна: 2020-05-26

Лесно е да изберете таблица в Word, като щракнете върху dot-select-table-symbol бутон в горния ляв ъгъл на таблицата, както е показано на екранната снимка по-долу. Можете също да изберете таблица с функцията Избор на таблица. Има ли обаче някакъв начин бързо да изберете всички таблици наведнъж в документа на Word? Методите в тази статия ще ви помогнат да го преодолеете. 


Изберете всички таблици в Word с VBA код

Изберете лесно всички таблици в Word с Kutools за Word


Изберете всички таблици в Word с VBA код

1, Натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложение прозорец.

2. В откриването Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули, След това копирайте и поставете следния 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 ден.

Кликнете Kutools > Маси > Изберете Таблици. Вижте екранна снимка:

Забележка: За да изберете таблици в селекцията, трябва първо да изберете диапазона и след това да приложите функцията.

След това можете да видите резултатите, както следва.

Изберете таблици в селекцията:

Изберете таблици в целия документ:

Ако искате да имате безплатна пробна версия на тази помощна програма, моля, отидете на безплатно изтегляне на софтуера първо и след това преминете към прилагане на операцията според горните стъпки.


Демонстрация: Изберете лесно всички таблици в Word с Kutools за Word


Най-добрите инструменти за продуктивност в офиса

Kutools за Word - Подобрете своя Word опит с Over 100 Забележителни функции!

🤖 Kutools AI Assistant: Преобразувайте писането си с AI - Генериране на съдържание  /  Пренаписване на текст  /  Обобщаване на документи  /  Запитване за информация въз основа на Документ, всичко това в Word

📘 Владеене на документи: Разделяне на страници  /  Обединяване на документи  /  Експортиране на селекция в различни формати (PDF/TXT/DOC/HTML...)  /  Пакетно конвертиране в PDF  /  Експортиране на страници като изображения  /  Отпечатайте няколко файла наведнъж...

Редактиране на съдържанието: Пакетно намиране и замяна в множество файлове  /  Преоразмеряване на всички снимки  /  Транспониране на редовете и колоните на таблицата  /  Преобразуване на таблица в текст...

🧹 Почистване без усилие: Изметете Допълнителни пространства  /  Прекъсвания на раздели  /  Всички заглавки  /  Текстови полета  /  Хипервръзки  / За повече инструменти за премахване се насочете към нашия Премахване на група...

Творчески вложки: Вмъкване Хилядни разделители  /  Квадратчета  /  Радио бутони  /  QR Code  /  Баркод  /  Таблица с диагонални линии  /  Надпис на уравнение  /  Надпис на изображението  /  Надпис на таблица  /  Множество снимки  / Открийте повече в Вмъкване на група...

🔍 Прецизни селекции: Точна точка конкретни страници  /  таблици  /  форми  /  заглавни параграфи  / Подобрете навигацията с още Изберете функции...

Звездни подобрения: Навигирайте бързо до всяко място  /  автоматично вмъкване на повтарящ се текст  /  безпроблемно превключване между прозорците на документи  /  11 Инструменти за конвертиране...

👉 Искате ли да изпробвате тези функции? Kutools за Word предлага a 60-дневен безплатен пробен период, без ограничения! ????
 
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do i only select the tables and figure captions. All my captions have reverted back to normal style. I had captioned all of them but now they are all not linked to the caption
This comment was minimized by the moderator on the site
Very nice method. Thank you
This comment was minimized by the moderator on the site
It seeems that this macros does not work in Word 2016
This comment was minimized by the moderator on the site
It works in Word 2016. What error are you getting?
This comment was minimized by the moderator on the site
I understand already. For correct work macros cursor must to be not in table when you call macros. Thank you.
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Wonderful I got the solution by using the VBA code. Thank you so much
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
excellent macro and very easy
This comment was minimized by the moderator on the site
thank you so much he is good program but after few days stopped and require password and user name
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations