Code für manuellen Seitenumbruch

[martin11]

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

[nikki]

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

[F3K Total]

Moin,
um einen manuellen Seitenumbruch an der Stelle, wo sich gerade dein Cursor befindet, einzufügen, sollte dies funktionieren:

Code: Alles auswählen

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

Gruß R

[martin11]

Danke das läuft
Martin