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

[caute]

а как насчет макроса, который преобразовывал бы все таблицы в текст одним кликом?
по идее, надо добавить строку-другую к
Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs

[shanemac51]

 Sub tb130713_1143()
Dim j1
Dim TBL As Table
j1 = Word.ActiveDocument.Tables.Count
Do While j1 > 0
Debug.Print j1;
Word.ActiveDocument.Tables(j1).Select
Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _
NestedTables:=True
j1 = j1 - 1
Loop
End Sub

[caute]

Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _
заменяет таблицы на рамки (раньше не замечал как-то)...
а что надо вставить вместо, чтобы простой текст получить, без рамок?
или просто добавить к макросу команду удаления рамок

[shanemac51]

у меня рамок нет

у вас видимо таблицы загнаны в рамки(результат распознавания в точном режиме)

выложите кусочек

[caute]

файлик до и файлик после
таблички просто нарисовал

[shanemac51]

с макросом внутри, рамки убрала, но порядок таблиц не угадала

[caute]

Отлично, спасибо!
Если вдруг будет нужен порядок (что вряд ли), я таблички поодиночке в текст конвертирую