Как получить из текстового курсора отображаемый курсор

Автор Борис_С, 7 сентября 2020, 15:14

0 Пользователи и 1 гость просматривают эту тему.

Борис_С

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

economist

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

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

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

Отбражаемый к. всегда один и он есть, а текстовых - м.б. много или не быть вообще.
Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...

Борис_С

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

rami

#3
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

Борис_С