Форум вопросов и ответов

Форум вопросов и ответов (https://www.otvetnemail.ru/)
-   Новый архив 3 (https://www.otvetnemail.ru/novyj-arhiv-3-813/)
-   -   Добавить строку в таблице во Writer из VB6 (https://www.otvetnemail.ru/novyj-arhiv-3-813/dobavit-stroku-v-tablice-vo-writer-iz-vb6-307112/)

Guest 29.09.2011 23:45

Добавить строку в таблице во Writer из VB6
 
Есть шаблон, в нем шапка таблицы и на последней ячейке заголовка стоит закладка "Table"Задача минимум - добавить новую строку таблицы, используя для этого VB6 (я так понял, что нужно использовать команду диспетчера JumpToNextCell)Код:Dim arg()Dim service As ObjectDim desktop As ObjectDim document As ObjectDim bookmark As Object Set service = CreateObject("com.sun.star.ServiceManage r")Set desktop = service.CreateInstance("com.sun.star.fra me.Desktop")Set document = desktop.loadComponentFromURL("file:///" & Replace(App.Path, "\", "/") & "/Шаблоны/order.dot", "_blank", 0, arg()) Set bookmark = document.getBookmarks().getByName("Table ")Dim dispatcher As ObjectSet dispatcher = service.CreateInstance("com.sun.star.fra me.DispatchHelper")Call dispatcher.executeDispatch(service, ".uno:JumpToNextCell", "", 0, arg())На последней строке возникает ошибка 13 Type mismatch. В чем ошибка?


Часовой пояс GMT, время: 05:52.


© www.otvetnemail.ru - Форум вопросов и ответов.