OpenOffice.info

Danke das läuft
Martin

Sub insert_PageBreak_at_Position
    oViewCursor = thisComponent.CurrentController.ViewCursor
    oText = thisComponent.Text
    oTextCursor = oText.createTextCursor
    oTextCursor.gotoRange(oViewCursor, false)
    oTextCursor.BreakType = com.sun.star.style.BreakType.PAGE_AFTER
    oTextCursor.gotoEndOfParagraph(false)
    oText.insertControlCharacter(oTextCursor, 0,false)
End Sub

Moin,
um einen manuellen Seitenumbruch an der Stelle, wo sich gerade dein Cursor befindet, einzufügen, sollte dies funktionieren:
[code]Sub insert_PageBreak_at_Position
oViewCursor = thisComponent.CurrentController.ViewCursor
oText = thisComponent.Text
oTextCursor = oText.createTextCursor
oTextCursor.gotoRange(oViewCursor, false)
oTextCursor.BreakType = com.sun.star.style.BreakType.PAGE_AFTER
oTextCursor.gotoEndOfParagraph(false)
oText.insertControlCharacter(oTextCursor, 0,false)
End Sub[/code]
Gruß R

Siehe http://www.dannenhoefer.de/faqstarbasic/index.html

Code für manuellen Seitenumbruch könnte ich gut gebrauchen.
Den würde ich in ein Makro einbinden.
Martin