OpenOffice.info

Verfasst: **Mi, 20.02.2019 11:34**

Letzte Seitenzahl ist unbekannt, wie finde ich die?
Martin

Verfasst: **Mi, 20.02.2019 12:36**

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

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

OpenOffice.info

letzte Seitenzahl finden

letzte Seitenzahl finden

Re: letzte Seitenzahl finden