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

Как выделить все таблицы в документе Word?

В Word легко выбрать таблицу, нажав кнопку точка-выбор-таблица-символ в верхнем левом углу таблицы, как показано на скриншоте ниже. Вы также можете выбрать таблицу с помощью функции «Выбрать таблицу». Однако есть ли способ быстро выбрать все таблицы сразу в документе Word? Методы, описанные в этой статье, помогут вам пройти через это. 


Выбрать все таблицы в Word с кодом VBA

Легко выбрать все таблицы в Word с помощью Kutools for 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 for Word

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

Kutools for Word : С более чем 100 удобными надстройками Word, бесплатно попробовать без ограничений в 60 дня.

Нажмите Кутулс > таблицы > Выбрать таблицы. Смотрите скриншот:

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

Тогда вы можете увидеть результаты следующим образом.

Выберите таблицы в выборе:

Выделите таблицы во всем документе:

Если вы хотите получить бесплатную пробную версию этой утилиты, перейдите по ссылке бесплатно скачать программное обеспечение сначала, а затем перейдите к применению операции в соответствии с вышеуказанными шагами.


Демо: легко выбрать все таблицы в Word с помощью Kutools for Word



Рекомендуемые инструменты для повышения производительности Word

 

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

  • Сложные и повторяющиеся операции можно производить разово за секунды.
  • Вставляйте сразу несколько изображений из папок в документ Word.
  • Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
  • Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.
Сортировать комментарии по
Комментарии (10)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо, это хорошая программа, но через несколько дней она остановилась и требует пароль и имя пользователя.
Этот комментарий был сведен к минимуму модератором на сайте
отличный макрос и очень легкий
Этот комментарий был сведен к минимуму модератором на сайте
Сначала отличный код, но он определенно испортил кучу таблиц в Word 2010. Мой файл довольно сильно испортился, и мне пришлось вернуться к более ранней версии. Будьте осторожны!
Этот комментарий был сведен к минимуму модератором на сайте
Замечательно, я получил решение, используя код VBA. Большое спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Следующий модифицированный код выбирает все таблицы, за исключением таблиц, содержащих только одну строку: 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 Следующий код выбирает только строки заголовка: 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 У меня есть еще много таких кодов которые выбирают последние строки, все маркеры, маленькие / длинные пункты и т. д. Посмотрите мое следующее видео: https://www.youtube.com/watch?v=p_ZhufliFw8
Этот комментарий был сведен к минимуму модератором на сайте
В документе несколько таблиц (около 200). Я хочу выбрать только все эти таблицы и вставить их в новый документ в формате таблицы. Когда я выбираю таблицы в соответствии с описанной выше процедурой, во время операции вставки они вставляются как текст, а не как таблица. Не могли бы вы мне помочь?
Этот комментарий был сведен к минимуму модератором на сайте
Кажется, этот макрос не работает в Word 2016
Этот комментарий был сведен к минимуму модератором на сайте
Это работает в Word 2016. Какую ошибку вы получаете?
Этот комментарий был сведен к минимуму модератором на сайте
Я понимаю уже. Для корректной работы макросов курсор должен находиться вне таблицы при вызове макроса. Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Очень хороший метод. Спасибо
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL