Seite 1 von 1

manuellen Seitenumbruch entfernen

Verfasst: Di, 20.09.2016 12:45
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

Re: manuellen Seitenumbruch entfernen

Verfasst: Do, 18.01.2018 12:39
von ReneW
Danke. Funktioniert einwandfrei.