Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

28 Сентябрь 2020, 20:53 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Как получить из текстового курсора отображаемый курсор  (Прочитано 345 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Борис_С
Форумчанин
***
Offline Offline

Сообщений: 83


« Стартовое сообщение: 7 Сентябрь 2020, 15:14 »

Всем доброго дня!
Подскажите, пожалуйста, как можно получить из текстового курсора отображаемый курсор?
Спасибо.
Записан
economist
Форумчанин
***
Offline Offline

Сообщений: 1 265


« Ответ #1: 7 Сентябрь 2020, 15:56 »

Из отображаемого текстовый - легко:

oVCurs = oDoc.CurrentController.getViewCursor()
oTCurs = oText.createTextCursorByRange(oVCurs.getStart())

Отображаемый к. при наличии текстового - не особо и нужен.

Отбражаемый к. всегда один и он есть, а текстовых - м.б. много или не быть вообще.
« Последнее редактирование: 7 Сентябрь 2020, 15:59 от economist » Записан

Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...
Борис_С
Форумчанин
***
Offline Offline

Сообщений: 83


« Ответ #2: 7 Сентябрь 2020, 17:09 »

С помощью текстового курсора я нашел нужный мне текст. После этого мне нужно выделить найденный текст.
Для этого я хочу перетащить отображаемый курсор в позицию текстового.
Записан
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 3 014


iMac, LibreOffice и Apache OpenOffice


« Ответ #3: 7 Сентябрь 2020, 18:52 »

Код:
Sub Main
Dim oDoc, oText, tCurs
oDoc = ThisComponent
oText = oDoc.Text
tCurs = oText.createTextCursor()
tCurs.goRight(10, False)               'идём вправо без выделения
tCurs.goRight(15, True)                'идём ещё вправо с выделением

'выделяем текст содержащийся в текстовом курсоре, если текстовый курсор не содержит текста,
'то видимый курсор будет перемещён в позицию текстового курсора
oDoc.CurrentController.select(tCurs)
End Sub
« Последнее редактирование: 7 Сентябрь 2020, 19:15 от rami » Записан

Борис_С
Форумчанин
***
Offline Offline

Сообщений: 83


« Ответ #4: 7 Сентябрь 2020, 19:08 »

Спасибо. Все работает.
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!