Hallo,
Luzius schrieb:
> Ok, eine sehr gute Idee, kannte ich noch gar nicht!!
> Aber wie bekomme ich jetzt den Text (ASCII) aus dem XML heraus??
> Ich meine, den kurzen Text (1 1/2 Seiten A4 grob beschrieben),
> mögen ja noch gehen, aber eine meiner Geschichten mit über 80
> Seiten...
im Prinzip indem Du alle Formatierungsinformationen im xml löscht.
Ohne es groß getestet zu haben (deshalb mit Vorbehalt) nimm Suchen und
Ersetzen und suche nach regulärem Ausdruck:
<[^<>]+>|<[^<>]+.*|[^<>]+>
oder verwende ein Makro:
Sub Main
cursor = ThisComponent.text.CreateTextCursor
Cursor.GotoStart(False)
Do
x = Cursor.GoRight(1,True)
If Cursor.String = "<" Then
Do
Cursor.GoRight(1,True)
Loop While Right(Cursor.String,1) <> ">"
Cursor.String = ""
Else
Cursor.collapseToEnd()
End If
Loop While x
End Sub
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
