Автор | Сообщение |
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 28.07.06 21:39. Заголовок: Ole Word
Всем добрый вечер ! Понадобилось написать прогу из которой читаются документы Word. В каждом документе по несколько таблиц. Так вот никак не могу считать содержимое ячеек этих таблиц. Может кто сталкивался ?
|
|
|
Ответов - 7
[только новые]
|
|
|
| Администратор
|
Пост N: 241
Зарегистрирован: 23.05.05
|
|
Отправлено: 29.07.06 10:06. Заголовок: Re:
oActive := oWord:ActiveDocument oTables := oActive:Tables oTable := oTables:Invoke('Item', nTable) oRows := oTable:Rows и так далее, добираться до нужной ячейки и ее Range
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 29.07.06 17:22. Заголовок: Re:
Спасибо, это очень кстати, а то пришлось бы писать на VBA . А не в курсе как выполнить макрос в документе Word'а(в Excel все нормально), а то приходится использовать AutoOpen ?
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 29.07.06 18:30. Заголовок: Re:
oTables := OLEGetProperties(oActive,"Tables") Получаю oTables oTable := OLEInvoke(oTables,'Item', nTable) получаю отрицательное число oRows:= OLEGetProperties(oTable,"Rows ") ошибка приложения
|
|
|
|
| Администратор
|
Пост N: 242
Зарегистрирован: 23.05.05
|
|
Отправлено: 30.07.06 09:19. Заголовок: Re:
Это handle. так и должно быть Чтобы получить обьект надо oTables:Invoke('Item', nTable) С макросами гляну в понедельник, я их кажется вызывал, надо поискать как
|
|
|
|
| Администратор
|
Пост N: 243
Зарегистрирован: 23.05.05
|
|
Отправлено: 31.07.06 08:20. Заголовок: Re:
Макрос я запускал не просто, а очень просто oWord:Run("MacName")
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 31.07.06 18:50. Заголовок: Re:
Да, действительно просто. Спасибо!
|
|
|
|
| постоянный участник
|
Пост N: 113
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.11.06 00:33. Заголовок: Re:
Покажите пожалуйста кусок программы по открытию любого DOC файла (желательно на чистом xHarbour'e). FUNCTION MAIN() // Что здесь писать надо ? RETURN NIL Заранее спасибо.
|
|
|
|