Перенести таблицу из Word - > Excel

[raus]

Здравствуйте. Примерно такой же вопрос:
Есть документ Ворд. Вернее rtf. Документ автоматически формируется хитрой программой. В нем таблица - некоторые данные таблицы: Наименование, Номер, Дата. Нужно перенести столбцы этой таблицы (например с 10 строчки, ибо до этого шапка) до ПУСТОЙ строки в эксель ну например Журнал.xls но в последовательности Номер, Наименование, дата . На следующий день програмка снова формирует файл РТФ - и из него нужно дописать в первую пустую строку Журнал.xls и так в течении месяца.
Помогите ПЛЗ написать для этого макрос. Я конечно понимаю, что это большая работа, но хотя бы наброски, сам дособираю

[bdfy]

Документ автоматически формируется хитрой программой

На следующий день програмка снова формирует файл РТФ

а в чем проблема формировать программкой и таблицу в екселе ?

[Chenok]

Переносится нормально, просто номного рамки подправить и всё

[raus]

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

а в чем проблема формировать программкой и таблицу в екселе ?

проблема в том, что Клиент СЭД - прога для связи с казначейством -ессно таких настроек в ней нет, исходников как сами понимаете тоже нет. Правда она использует БД Access -но структуры базы нет, так что с ней не разобраться...

Остается единственный пусть: из РТФ в Ексель. Может образцы файлов скинуть?

[raus]

вот нашел

Sub CopyFromWord()
Dim wdApp As Object
Dim wdDoc As Object
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open(Filename:="""c:\Название валюты.doc""", 
ConfirmConversions:= _
        False, ReadOnly:=False, AddToRecentFiles:=False, 
PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", XMLTransform:="", Format:=0) 
'wdOpenFormatAuto,
wdApp.Selection.WholeStory
wdApp.Selection.Copy
ActiveSheet.Paste
wdDoc.Close
wdApp.Quit
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub

но нужно не все а определенную часть таблицы (даже не всю колонку)
а вот это не работает:

wdDoc.Tables(1).Range(3, 4).Select

и это не работает:

Range(Start:=0, End:=10)

кто знает как эту строчку записать в VBA Ворд. Подскажите синтаксис...

МувДаун не хочу использовать (но не получится - так придется)