manuellen Seitenumbruch entfernen

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Colster
**
Beiträge: 27
Registriert: Mi, 14.12.2005 13:44

manuellen Seitenumbruch entfernen

Beitrag von Colster »

Folgender Code löscht einen manuellen Seitenumbruch:

Code: Alles auswählen

Sub ZUentfernen(oVwCrs as Object)
Dim oText as  Object
' überschüssigen Zeilenumbruch entfernen!

' oVwCrs ist Viewcursor des Dokuments

oText = oVwCrs.getText()
oTxCrs = oText.createTextCursorByRange(oVwCrs) 
oVwCrs.gotoStartofPage()
oTxCrs.gotoRange(oVwCrs, True)
oTxCrs.goleft(1,True)
oTxCrs.setString("")
Mit Gruß

Colster
Im Ganzen liegt der Nutzen mehr im Gebrauch als im Eigentum! (Aristoteles)
ReneW
Beiträge: 1
Registriert: Di, 09.01.2018 14:30

Re: manuellen Seitenumbruch entfernen

Beitrag von ReneW »

Danke. Funktioniert einwandfrei.
Antworten