Hey Werner, *,
Werner Tietz schrieb:
> [..]
> Dann schick es doch an die ganze Liste, Mich würde es auch interressieren.
Ja, ja... schon gut. Ihr habt halt jetzt keine Beispieldatei zum
direkten ausprobieren ;-)
Hier der Code:
Sub AbsatzmarkierungenEntfernen
Dim oDoc as object, oTxtC as object, bFlag as boolean
bFlag = true
oDoc = ThisComponent
oTxtC = odoc.text.createTextCursor()
oTxtC.gotoNextParagraph(false)
Do
if not oTxtC.isEndofParagraph then
if bFlag then
oTxtC.goTopreviousParagraph(false)
oTxtC.goToEndOfParagraph(false)
oTxtC.goright(1, true)
oDoc.Text.insertString(oTxtC, " ", true)
else
bFlag = true
end if
else
oTxtC.goleft(1, true)
oDoc.Text.insertString(oTxtC, "", true)
bFlag = false
end if
loop while oTxtC.gotonextParagraph(false)
End Sub
Viel Spass
Thomas
--
## Marketing deutschsprachiges Projekt
## http://de.openoffice.org - www.openoffice.org
## Vorstand OpenOffice.org Deutschland e.V.
## Mitglieder willkommen: www.OOoDeV.org
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
