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

Форум вопросов и ответов (https://www.otvetnemail.ru/)
-   Архив вопросов и ответов (https://www.otvetnemail.ru/arhiv-voprosov-i-otvetov-805/)
-   -   Пробую поместить курсор OOWriter в закладку [РЕШЕНО] (https://www.otvetnemail.ru/arhiv-voprosov-i-otvetov-805/probuyu-pomestit-kursor-oowriter-v-zakladku-resheno-306599/)

Guest 29.09.2011 23:37

Пробую поместить курсор OOWriter в закладку [РЕШЕНО]
 
Пробую поместить курсор 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 = "Здесь - закладка"Укажите выход


Часовой пояс GMT, время: 21:03.


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