Добавить строку в таблице во 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. В чем ошибка? |