Перейти к основному содержанию

Как преобразовать несколько таблиц в текст в Word?

Если в документе много таблиц, и вы хотите преобразовать их в текст, как это сделать быстро? Это руководство покажет вам несколько сложных способов быстрого преобразования нескольких таблиц в текст в Word.

Преобразование таблиц в текст по одной

Преобразуйте все таблицы в текст с помощью VBA

Легко конвертировать несколько таблиц в текст с помощью Kutools

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

Kutools for Word: Интеграция ИИ 🤖, более 100 расширенных функций экономят 50 % времени обработки документов.Бесплатная загрузка

Office Tab: вводит вкладки, подобные браузеру, в Word (и других инструментах Office), упрощая навигацию по нескольким документам.Бесплатная загрузка


стрелка синий правый пузырь Преобразование таблиц в текст по одной

Office Word предоставляет функцию преобразования таблицы в обычный текст, но ее можно применять только к одной таблице за раз.

Вкладка Office: предоставляет интерфейсы с вкладками в Word, Excel, PowerPoint...
от слова, среднее объявление 100
Улучшите свой рабочий процесс прямо сейчас.      Узнать больше       Бесплатная загрузка

Шаг 1: выберите или поместите курсор в таблицу, которую вы хотите преобразовать;

Шаг 2: перейдите к Планировка вкладка под Работа с таблицамии нажмите Преобразование в текст in Данные группа;

doc-таблицы-в-текст-1

Шаг 3: выберите стиль метки для разделения ячеек таблицы;

doc-таблицы-в-текст-2

Шаг 4: нажмите OK и Word преобразует таблицу в текст;

Шаг 5: повторяйте шаги с 1 по 4, пока все таблицы не будут преобразованы;


стрелка синий правый пузырь Преобразуйте все таблицы в текст с помощью VBA

VBA может преобразовывать все таблицы документа в текст.

Шаг 1. Нажмите "Alt-F11», Чтобы открыть окно Microsoft Visual Basic для приложения;

Шаг 2: нажмите Модули на Вставить вкладку, скопируйте и вставьте следующий код VBA в окно модуля;

Шаг 3: нажмите Run кнопку, чтобы применить VBA.

Код VBA для преобразования всех таблиц в текст:

ПодтаблицыToText ()
Размер таблицы как таблица
Для каждой таблицы в ActiveDocument.Tables
таблица.ConvertToText
Разделитель: = wdSeparateByTabs
Следующая таблица
Установить tbl = ничего
End Sub


стрелка синий правый пузырь Легко конвертировать несколько таблиц в текст с помощью Kutools

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

Kutools for Word, удобная надстройка, включает группы инструментов, облегчающих вашу работу и расширяющих ваши возможности обработки текстовых документов. Бесплатная пробная версия на 45 дней! Get It Now!

Нажмите Кутулс >> нажмите Таблица в текст in Настольные группы

doc-таблицы-в-текст-3

Для преобразования нескольких таблиц выделения или всего документа сначала выберите часть документа или весь документ, а затем примените утилиту, нажав Kutools >> Таблица в текст в таблице, и выберите разделитель для обычного текста после преобразования в диалоговое окно "Преобразовать таблицу в текст".

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


Лучшие инструменты для офисной работы

Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!

🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент  /  Переписать текст  /  Обобщение документов  /  Запросить информацию на основе документа, все в Word

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

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

🧹 Легкая очистка: Убрать Дополнительные места  /  Разрывы разделов  /  Все заголовки  /  Текстовые поля  /  Гиперссылки  / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...

Креативные вставки: Вставлять Разделители тысяч  /  Флажки  /  радио кнопки  /  QR код  /  Штрих-код  /  Таблица диагональных линий  /  Заголовок уравнения  /  Заголовок изображения  /  Заголовок таблицы  /  Несколько изображений  / Узнайте больше в Вставить группу...

???? Точный выбор: Точно определить конкретные страницы  /  Эта таблица  /  формы  /  заголовки абзацев  / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...

Звездные улучшения: Быстро перемещайтесь в любое место  /  автоматическая вставка повторяющегося текста  /  плавно переключаться между окнами документов  /  11 инструментов преобразования...

👉 Хотите попробовать эти функции? Kutools for Word предлагает 60-дневная бесплатная пробная версия, без ограничений! 🚀
 
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
After running the VBA code, MS Word has changed. I no longer have access to VBA tools, and the font is larger. I don't know what else has changed yet. What do I do now?
This comment was minimized by the moderator on the site
Thank you for this! it is appreciated!
This comment was minimized by the moderator on the site
The correct code as follows: Sub TablesToText() Dim tbl As Table For Each tbl In ActiveDocument.Tables tbl.ConvertToText Separator = wdSeparateByTabs Next tbl Set tbl = Nothing End Sub
This comment was minimized by the moderator on the site
thank you, now it works
This comment was minimized by the moderator on the site
please kindly let me know "what is the code for change only selected tables to text in word?"
This comment was minimized by the moderator on the site
Thank you. It worked.
This comment was minimized by the moderator on the site
Thank you. It works!!
This comment was minimized by the moderator on the site
Here's a code that works: Sub AllTablestoText() ' ' AllTablestoText Macro ' Macro created by Jarosław Michalak ' For Each aTable In ActiveDocument.Tables aTable.ConvertToText wdSeparateByCommas, True Next aTable End Sub Source: http://howto.wikispaces.umb.edu/Convert+all+tables+to+text
This comment was minimized by the moderator on the site
The VBA code isn't working.. when I press F5 for execution, it says "Compile error; syntax error;"
This comment was minimized by the moderator on the site
I think lines 4 and 5 of the VBA code above should be combined: tbl.ConvertToText Separator:=wdSeparateByTabs
This comment was minimized by the moderator on the site
Thank you SImon! It works.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations