перенос текста из таблиц Word'a в txt

[Dr.Binom]

Здравствуйте, пишу одну работу,и столкнулся с необходимостью решения вот такой задачи: из имеющегося файла doc в котором есть и текст и таблицы нужно выделить ТОЛЬКО текст из таблиц и ,сохраняя форматирование, записать его в файл тхт. Причем в тхт элементы по строке должны разделяться пробелами или tab, а каждая строка должна отделяться от другой концом строки...
в VBA вообще не работал, поэтому темный лес( надеюсь,на вашу помощь! заранее спасибо!
Вложил начальный файл и как должно быть!

[Serge_Bliznykov]

а вот мне любопытно, как Вы себе представляете "текст из таблиц и ,сохраняя форматирование " для текстового файла то?!

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

[Dr.Binom]

Сообщение от Serge_Bliznykov

а вот мне любопытно, как Вы себе представляете "текст из таблиц и ,сохраняя форматирование " для текстового файла то?!

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

Ну,я имею в виду чтобы данные, переносимые из ворда были не в одну строку в тхт...
я приложил 2 картинки как есть и как должно быть...
чтобы в итоге в строке разделители были tab а между строками - перенос по строке

[Dr.Binom]

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

[Serge_Bliznykov]

чтобы в итоге в строке разделители были tab а между строками - перенос по строке

ага. теперь понятно.

сделал цикл по строкам до конца таблицы... может что то не так там пишу..

в чём пишете то, в VBA?
выкладывайте свой код, посмотрим...


p.s. я лично в программирования под MS Word не силён, но тут, на форуме есть сильные спецы!

[Dr.Binom]

-----------

[Dr.Binom]

Сообщение от Serge_Bliznykov

ага. теперь понятно.


в чём пишете то, в VBA?
выкладывайте свой код, посмотрим...


p.s. я лично в программирования под MS Word не силён, но тут, на форуме есть сильные спецы!

в данном варианте копируется полностью таблица...

rw = tTable.Rows.Count 
Selection.MoveStart wdLine, 0
Selection.MoveEnd wdParagraph, rw
Selection.Copy

linew = linew + Selection.Text

Print #1, linew

а тут я пытался копировать построчно, но я первый день вижу VBA, поэтому ищу иголку в стоге сена:

rw = tTable.Rows.Count
Selection.MoveStart wdLine, 0
For I = 1 To rw
'Selection.MoveStart wdLine, I


Selection.MoveEnd wdLine, 1

'Selection.MoveEnd wdParagraph, rw


linew = linew + vbCr + Selection.Text
Selection.Delete
Selection.Text = vbCrLf

Print #1, linew
Next I

вроде бы ничего не забыл...там до этого кода идут манипуляции с таблицей,а тут непосредственно происходит пробег по строкам и копирование



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Dr.Binom]

все,не надо, я разобрался...
Благодарю