Таблицы — большое благо для пользователей Word. Однако, когда вы работаете с документами, созданными в другом текстовом редакторе, таблицы могут мешать. Например, один читатель WordTips пожаловался, что его текст из двух столбцов, созданный в другом текстовом редакторе, был преобразован в Word в таблицы. Он попросил способ автоматического преобразования всех таблиц в текст без необходимости обрабатывать каждую таблицу вручную.

Следующий макрос AllTablesToText поможет. Он проходит через каждую таблицу в текущем документе и преобразует их все в текст с табуляцией между столбцами:

Sub AllTablesToText()

Dim t As Table

For Each t in ActiveDocument.Tables         t.ConvertToText Separator:=wdSeparateByTabs     Next t End Sub

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

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13171) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Converting_Tables_to_Text [Преобразование таблиц в текст].