manuellen Seitenumbruch entfernen

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

Moderator: Moderatoren

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

manuellen Seitenumbruch entfernen

Beitrag von Colster » Di, 20.09.2016 12:45

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)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 10 Gäste