Здравствуйте!
Понятно, что с ходу оффтопик, но это наиболее близка по теме ветка.
Хочется все таблицы в вордовом документе преобразовать в текст. Есть макрос:
Sub AllTblsToText()
'все таблицы в текст
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
tbl.ConvertToText (wdSeparateByParagraphs)
Next tbl
End Sub
и, к слову, в ворде он почему-то не работает. Но у меня и Ворд-то не установлен, а есть Libre Office. Можно как-то обработать напильником этот макрос, чтобы он заработал в...
Все таблицы в текст для Libre Office
Понятно, что с ходу оффтопик, но это наиболее близка по теме ветка.
Хочется все таблицы в вордовом документе преобразовать в текст. Есть макрос:
Sub AllTblsToText()
'все таблицы в текст
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
tbl.ConvertToText (wdSeparateByParagraphs)
Next tbl
End Sub
и, к слову, в ворде он почему-то не работает. Но у меня и Ворд-то не установлен, а есть Libre Office. Можно как-то обработать напильником этот макрос, чтобы он заработал в...
Все таблицы в текст для Libre Office
