Code für manuellen Seitenumbruch

Das Textverarbeitungsprogramm

Moderator: Moderatoren

martin11
*****
Beiträge: 237
Registriert: Do, 30.03.2017 16:07

Code für manuellen Seitenumbruch

Beitrag von martin11 »

Code für manuellen Seitenumbruch könnte ich gut gebrauchen.
Den würde ich in ein Makro einbinden.
Martin
nikki
******
Beiträge: 787
Registriert: Do, 05.03.2015 10:42

Re: Code für manuellen Seitenumbruch

Beitrag von nikki »

Gruß

---------------------------------------------------------
Win.10 Prof. 64-bit, AOO 4.1.7, LO 6.3.4 (x64)
F3K Total
********
Beiträge: 3704
Registriert: Mo, 28.02.2011 17:49

Re: Code für manuellen Seitenumbruch

Beitrag von 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
*****
Beiträge: 237
Registriert: Do, 30.03.2017 16:07

Re: Code für manuellen Seitenumbruch

Beitrag von martin11 »

Danke das läuft
Martin
Antworten