Форум » FiveWin » Ole Word » Ответить

Ole Word

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

Ответов - 7

Pasha: oActive := oWord:ActiveDocument oTables := oActive:Tables oTable := oTables:Invoke('Item', nTable) oRows := oTable:Rows и так далее, добираться до нужной ячейки и ее Range

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

fil: oTables := OLEGetProperties(oActive,"Tables") Получаю oTables oTable := OLEInvoke(oTables,'Item', nTable) получаю отрицательное число oRows:= OLEGetProperties(oTable,"Rows ") ошибка приложения


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

Pasha: Макрос я запускал не просто, а очень просто oWord:Run("MacName")

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

Andrey: Покажите пожалуйста кусок программы по открытию любого DOC файла (желательно на чистом xHarbour'e). FUNCTION MAIN() // Что здесь писать надо ? RETURN NIL Заранее спасибо.



полная версия страницы