von Stephan » Mi, 05.05.2021 19:50
Sofern es um die 3 Makros geht, so müssen diese beispielsweise lauten:
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
Die musste ich umbenennen, weil immer noch nicht bas geladen wird.
ich weiß leider nicht was das meint.
Gruß
Stephan
Sofern es um die 3 Makros geht, so müssen diese beispielsweise lauten:
[code]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[/code]
[quote]Die musste ich umbenennen, weil immer noch nicht bas geladen wird.[/quote]
ich weiß leider nicht was das meint.
Gruß
Stephan