Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

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

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


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

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

Популярные
Удивительно! Используйте эффективные вкладки в Word (Office), такие как Chrome, Firefox и New Internet Explorer!

Узнать больше Скачать бесплатно

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

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

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

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

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

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

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


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

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

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

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

Шаг 3: нажмите прогон для применения VBA.

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

Sub TablesToText ()
Dim tbl As Table
Для каждого tbl в ActiveDocument.Tables
tbl.ConvertToText
Сепаратор: = wdSeparateByTabs
Следующий tbl
Установить tbl = Nothing
End Sub


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

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

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

щелчок Kutools >> нажмите Таблица к тексту in рабочий стол группа

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

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

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




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

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Scott · 3 months ago
    Thank you for this! it is appreciated!
  • To post as a guest, your comment is unpublished.
    Suresh · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    cartography · 3 years ago
    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
  • To post as a guest, your comment is unpublished.
    Milind Gautam · 4 years ago
    The VBA code isn't working.. when I press F5 for execution, it says "Compile error; syntax error;"
  • To post as a guest, your comment is unpublished.
    Simon · 5 years ago
    I think lines 4 and 5 of the VBA code above should be combined:

    tbl.ConvertToText Separator:=wdSeparateByTabs