[gelöst] [Writer] Cursor auf Anfang von bestimmter Seite setzen

[tmp]

Hallo,

ich habe ein Writer-Dokument mit 10 Seiten. Ich möchte nun den Text-Cursor am Anfang von Seite 3 platzieren.

Weiß jemand, wie das per Makro geht?

XTextCursor hat wohl nur diese Methoden:

boolean gotoPreviousParagraph([IN]boolean)
boolean gotoNextParagraph([IN]boolean)
boolean gotoEndOfParagraph([IN]boolean)
boolean gotoStartOfParagraph([IN]boolean)
boolean isEndOfParagraph()
boolean isStartOfParagraph()
boolean gotoStartOfWord([IN]boolean)
boolean gotoEndOfWord([IN]boolean)
boolean gotoPreviousWord([IN]boolean)
boolean gotoNextWord([IN]boolean)
boolean isEndOfWord()
boolean isStartOfWord()
boolean gotoEndOfSentence([IN]boolean)
boolean gotoStartOfSentence([IN]boolean)
boolean gotoPreviousSentence([IN]boolean)
boolean gotoNextSentence([IN]boolean)
boolean isEndOfSentence()
boolean isStartOfSentence()
void gotoRange([IN]com.sun.star.text.XTextRange,[IN]boolean)
void gotoEnd([IN]boolean)
void gotoStart([IN]boolean)
boolean goRight([IN]short,[IN]boolean)
boolean goLeft([IN]short,[IN]boolean)

EIn goToPage wie bei VBA gibt es hier scheinbar nicht.

[mikele]

Hallo,
dafür ist der viewcursor zuständig. Der kennt die Methode jumpToNextPage().

[tmp]

Hallo mikele,

danke, dein Hinweis hat mich auf die richtige Spur gebracht.

Code: Alles auswählen

Sub goToPage

   Dim oVC As Object

   oVC = ThisComponent.getCurrentController.getViewCursor
   oVC.JumpToPage(3, false)

End Sub