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
Folgender Code löscht einen manuellen Seitenumbruch:
[code]
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("")
[/code]
Mit Gruß
Colster