Code für manuellen Seitenumbruch

Das Textverarbeitungsprogramm

Moderator: Moderatoren

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

Code für manuellen Seitenumbruch

Beitrag von martin11 » Mo, 04.03.2019 15:50

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

nikki
******
Beiträge: 769
Registriert: Do, 05.03.2015 10:42

Re: Code für manuellen Seitenumbruch

Beitrag von nikki » Mo, 04.03.2019 15:58

Gruß

---------------------------------------------------------
Win.10 Prof. 64-bit, AOO 4.1.7, LO 6.3.3 (x64)

F3K Total
********
Beiträge: 3384
Registriert: Mo, 28.02.2011 17:49

Re: Code für manuellen Seitenumbruch

Beitrag von F3K Total » Mo, 04.03.2019 16:23

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: 99
Registriert: Do, 30.03.2017 16:07

Re: Code für manuellen Seitenumbruch

Beitrag von martin11 » Mo, 04.03.2019 16:55

Danke das läuft
Martin

Antworten