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

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

2 Март 2021, 11:03 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

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

Сообщений: 135


« Стартовое сообщение: 4 Август 2020, 17:35 »

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

Сообщений: 135


« Ответ #1: 4 Август 2020, 18:07 »

Я написал макрос, который это делает:
Код:
  oVCurs = ThisComponent.CurrentController.getViewCursor()
  oVCurs.isVisible() = False
  Dim Position, Position1
  Position = oVCurs.getPosition()
  oVCurs.jumpToStartOfPage()
  Position1 = oVCurs.getPosition()
          While Position1.X <> Position.X Or Position1.Y <> Position.Y
          numBegCurs = numBegCurs + 1
              oVCurs.GoRight(1, False)
            Position1 = oVCurs.getPosition()
          Wend
  oVCurs.isVisible() = True
Может быть кому-нибудь пригодится.
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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