Sub EinseitigUnpaginiertMehrseitigPaginiert
'Autor: Joerg Schmidt
Cursor = ThisComponent.CurrentController.getviewCursor() 
Cursor.gotoend(false) 
If Cursor.getPage() = 1 Then
		Exit Sub
	Else
		x = ThisComponent.getStyleFamilies().getByName("PageStyles").getbyName("First Page")
		x.HeaderIsOn = True
		x.HeaderBodyDistance = 500
		x.HeaderText.createTextCursor.ParaAdjust = 1
		oField = ThisComponent.createInstance("com.sun.star.text.TextField.PageNumber")
		oField.NumberingType = com.sun.star.style.NumberingType.PAGE_DESCRIPTOR
		oField.SubType = com.sun.star.text.PageNumberType.CURRENT
		x.HeaderText.insertTextContent(x.HeaderText, oField, False)
End If
End Sub