letzte Seitenzahl finden

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

martin11
*****
Beiträge: 237
Registriert: Do, 30.03.2017 16:07

letzte Seitenzahl finden

Beitrag von martin11 »

Letzte Seitenzahl ist unbekannt, wie finde ich die?
Martin
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: letzte Seitenzahl finden

Beitrag von Stephan »

Die tatsächliche Seitennummer findest Du z.B. mittel temporärem Einfügen und Auslesen des Feldbefehls "PageNumber":

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
Die interne Seitenzahl so:
http://www.dannenhoefer.de/faqstarbasic ... tteln.html


Gruß
Stephan
Antworten