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

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

Sub AllTablesToText()

Dim Tbls As Long     Dim J As Long

Tbls = ActiveDocument.Tables.Count     For J = Tbls To 1 Step —1         ActiveDocument.Tables(J).ConvertToText Separator:=wdSeparateByTabs     Next J End Sub

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

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (866) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

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