Отправлено: 28.07.06 21:39. Заголовок: Ole Word

Всем добрый вечер ! Понадобилось написать прогу из которой читаются документы Word. В каждом документе по несколько таблиц. Так вот никак не могу считать содержимое ячеек этих таблиц. Может кто сталкивался ?

 Отправлено: 29.07.06 10:06. Заголовок: Re:

oActive := oWord:ActiveDocument
oTables := oActive:Tables
oTable := oTables:Invoke('Item', nTable)
oRows := oTable:Rows

и так далее, добираться до нужной ячейки и ее Range

 Отправлено: 29.07.06 17:22. Заголовок: Re:

Спасибо, это очень кстати, а то пришлось бы писать на VBA .
А не в курсе как выполнить макрос в документе Word'а(в Excel все нормально), а то приходится использовать AutoOpen ?

 Отправлено: 29.07.06 18:30. Заголовок: Re:

oTables := OLEGetProperties(oActive,"Tables")
Получаю oTables

oTable := OLEInvoke(oTables,'Item', nTable)
получаю отрицательное число

oRows:= OLEGetProperties(oTable,"Rows ")
ошибка приложения

 Отправлено: 30.07.06 09:19. Заголовок: Re:

Это handle. так и должно быть
Чтобы получить обьект надо
oTables:Invoke('Item', nTable)
С макросами гляну в понедельник, я их кажется вызывал, надо поискать как

 Отправлено: 31.07.06 08:20. Заголовок: Re:

Макрос я запускал не просто, а очень просто

oWord:Run("MacName")

 Отправлено: 31.07.06 18:50. Заголовок: Re:

Да, действительно просто. Спасибо!

 Отправлено: 28.11.06 00:33. Заголовок: Re:

Покажите пожалуйста кусок программы по открытию любого DOC файла (желательно на чистом xHarbour'e).

FUNCTION MAIN()

// Что здесь писать надо ?

RETURN NIL

Заранее спасибо.