Пробую поместить курсор OpenOffice.org Writer средствами Visual Basic 6 в позицию закладки "NAME_BS".Текст писать научился, а вот поместить туда курсор (для дальнейшего удаления строки) ну никак не выходит.Вот листинг, в котором последние две строки не работают никак:Код: Dim arg() Dim service As Object Dim desktop As Object Dim document As Object Dim 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, "\", "/") & "/Otchet.dot", "_blank", 0, arg()) ' Выбираю закладку Set Bookmark = document.getBookmarks().getByName("NAME_ BS") ' Вставляю текст в закладку Bookmark.getAnchor.setString ("What you want to insert") ' Работает, но курсор остается на старом месте ' Пытаюсь поместить курсор на закладку и ничего не выходит Dim Cursor As Object Set Cursor = document.Text.createTextCursorByRange(Bo okmark.Anchor) Cursor.String = "Здесь - закладка"Укажите выход
|