manuellen Seitenumbruch entfernen
Verfasst: Di, 20.09.2016 12:45
Folgender Code löscht einen manuellen Seitenumbruch:
Mit Gruß
Colster
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("")
Colster