OpenOffice.info

funktioniert!
vielen dank...

Sub wr_SeitenUmbruchAmSchluss
oText = ThisComponent.Text
oCursor = oText.CreateTextCursor()
oCursor.goToEnd( False )
oCursor.BreakType = com.sun.star.style.BreakType.PAGE_AFTER
oText.insertControlCharacter( oCursor, 0, False )
End Sub

...in einem Writer-Dokument?

[code]Sub wr_SeitenUmbruchAmSchluss
oText = ThisComponent.Text
oCursor = oText.CreateTextCursor()
oCursor.goToEnd( False )
oCursor.BreakType = com.sun.star.style.BreakType.PAGE_AFTER
oText.insertControlCharacter( oCursor, 0, False )
End Sub[/code]

Ob das "elegant" ist.... ?

hallo,
wie füge ich am elegantesten an das Ende eines Dokumentes eine leere Seite an? Um immer eine gerade Seitenanzahl zu haben.