Hey Uwe,
Uwe schrieb:
[..]
> Makros, natürlich. Ich kenn mich aber dabei nicht so genau aus. Was
> muss ich schreiben, damit er das mit allen Absatzmarken innerhalb des
> selektierten Textes macht. Uwe
Hmm, das ist etwas komplizierter. Für welches Betriebssystem brauchst du
das?
Für Windows gibnt es eine ganz einfache Lösung: "Harte" Returns
(Absatzendemarken) werden durch die Kombination ASCII-Zeichen 13 und
ASCII- 10 dargestellt, "weiche" Returns (Zeilenumbrüche ohne Absatzende)
nur durch das Zeichen 10.
Also löschst du einfach alle ASCII- 13 Zeichen aus deinem Text.
Das geht dann so:
sub ASCII13Loeschen
oDoc = thisComponent
oSelall = oDoc.getCurrentSelection()
oSel = oSelall.getByIndex(0)
sSel = oSel.string 'der Textinhalt der Markierung
for i=1 to len(sSel)+1
if mid(sSel, i, 1) = Chr(13) then
mid(sSel, i, 1, "")
end if
next
oSel.string = sSel 'zurückschreiben des geänderten Strings
end sub
Das is tdie Kurzform. Da sollte man dann noch diverse
Fehler-Abfangstrukturen einbauen, die sich durch Mehrfach-Selektion oder
gar keine Selektion ergeben etc.
Auch musst du wissen, dass eine Stringvaraibel auf 64 K begrenzt ist,
solltest du also größere Texte markieren (also so mehr als 20.000
Zeichen), dann funktioniert das auch nicht mehr.
Viele Grüße
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]
