Letzte Seitenzahl ist unbekannt, wie finde ich die?
Martin
letzte Seitenzahl finden
Moderator: Moderatoren
Re: letzte Seitenzahl finden
Die tatsächliche Seitennummer findest Du z.B. mittel temporärem Einfügen und Auslesen des Feldbefehls "PageNumber":
Die interne Seitenzahl so:
http://www.dannenhoefer.de/faqstarbasic ... tteln.html
Gruß
Stephan
Code: Alles auswählen
Sub Main()
VCursor=thiscomponent.Text.CreateTextCursor
VCursor.jumpToLastPage()
PNF = ThisComponent.createInstance("com.sun.star.text.TextField.PageNumber")
PNF.NumberingType = com.sun.star.style.NumberingType.ARABIC
PNF.SubType = com.sun.star.text.PageNumberType.CURRENT
thiscomponent.Text.insertTextContent(VCursor, PNF, false)
VCursor.goLeft(1,True)
Msgbox VCursor.String
VCursor.String = ""
End sub
http://www.dannenhoefer.de/faqstarbasic ... tteln.html
Gruß
Stephan