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)