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

[caute]

На некоторых страницах Word не умеет превращать таблицы в текст, выдает ошибку. Очевидно, не любит вложенные таблицы. Примерный файлик прилагается.
Можно ли помочь этому горю с помощью макроса?

[shanemac51]

не нашла ни одной таблицы

[caute]

виноват, файлик удаляю.
Вот такое выдал макрорекордер:

Sub Таблицу_в_текст()
    Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _
        NestedTables:=True
End Sub

Что-нибудь можно/нужно ли тут улучшить?

[shanemac51]

если файл из интернета --там нужна другая обработка(понижение входимости таблиц)

какая у вас версия ворда?

--------
и выложите источник

[caute]

word 2003. да, проблемы возникают с файлами mht, созданными в Опере и потом редактируемыми в Word.
В идеале хотелось бы одним кликом превращать все таблицы в текст в документе

[shanemac51]

ворд не менее 2007
формат html

при 2003
---обработать макросом НТМ как текстовый файл, заблокировать теги таблиц
--затем открыть как ворд-документ и сделать основную обработку

---------
нужны ли рисунки
в интернете много тегов, которые 2003 не берет

[caute]

рисунками, скриптами и прочей ерундой можно (и, наверное, даже желательно) пожертвовать, сохранить надо только формат текста: шрифт, курсив, жирность и т.п.

[shanemac51]

файл 2 вы видимо откроете
--сохранить как дос-формат
--удалите лишнее
--вы сможете преобразовать таблицу в текст

с файлом 1 вы это сделать не сможете

[caute]

таких файлов 1 за свою жизнь я встречал - не счесть

[shanemac51]

но в файле1 --преобразование в текст не сработает
а в файл 2 ---видимо сработает

я в исходном НТМ сделала 2 замены

[table заменила на [/TABLE][TABLE
[IMG [IMG1

----------
ПОСЛЕ ЭТОГО ФАЙЛ ОТКРЫВАЕТСЯ УСТОЙЧИВЕЕ
----
в реальности замен побольше и оформлены макросом, который обрабатывает все НТМ из каталога