OpenOffice.info

Code: Alles auswählen

Sub LetzteSeitenZahlErmitteln
	oDocW = ThisComponent
	oCC = oDocW.CurrentController
	oVC = oCC.getViewCursor
	oVC.jumpToLastPage()
	Msgbox oVC.getPage
End sub


REM Das Programm führt einen Cursorsprung durch.
REM Der Cursor springt von der aktuellen Seite,
REM direkt in die erste Zeile der nächsten Seite
Sub SpringeAufNaechsteSeite
	oDocC = thisComponent
	oVC = oDocC.GetCurrentController.ViewCursor
	
	With oVC
		.jumpToNextPage(false)
		.jumpToStartOfPage(false)
	End With
End Sub


REM Das Programm führt einen Cursorsprung durch.
REM Der Cursor springt von der aktuellen Seite,
REM direkt in die erste Zeile der vorherigen Seite
Sub SpringeAufVorherigenSeite
	oDocC = thisComponent
	oVC = oDocC.GetCurrentController.ViewCursor
	
	With oVC
		.jumpToPreviousPage(false)
		.jumpToStartOfPage(false)
	End With
End Sub