Как узнать на какой странице документа находится текст?

[Борис_С]

Всем доброго дня!
Мне нужно считать текст из документа. При этом мне нужно разбить этот текст по-странично.
Считать текст несложно:

Код Выделить Развернуть


  oTCurs = ThisComponent.Text.createTextCursor()
  text = ""
  Do
     oTCurs.gotoEndOfParagraph(True)
     text = text + oTCurs.String + " " 'CHR$(10)
  Loop While oTCurs.gotoNextParagraph(False)

А вот как узнать, номер страницы считываемого текста?
Как я понимаю, номер страницы можно узнать с помощью метода getPage() для отображаемого курсора.
Я же работаю с текстовым курсором. Можно ли получить отображаемый курсор из текстового курсора?
Спасибо.

[Борис_С]

Разобрался. Вот код:

Код Выделить Развернуть


  oTCurs = ThisComponent.Text.createTextCursor()
  oVCurs = ThisComponent.CurrentController.getViewCursor()
  oVCurs.jumpToFirstPage()
   
  text = ""
  Do
    Dim numPage
    numPage = oVCurs.getPage()
    oTCurs.gotoEndOfParagraph(True)
    text = text + oTCurs.String + " "
    oVCurs.goRight(Len(oTCurs.String) + 1, False)
  Loop While oTCurs.gotoNextParagraph(False)
  GetText = text