writer: leider Script/Makro verloren gegangen

de-users
#1

Guten Tag,

ich habe gestern mein System von Libreoffice und OpenOffice befreit, incl den Userordner, um libreoffice ganz neue zu installieren.

Dabei habe ich leider ein wichtiges Makro/Script vergessen und finde es auch nicht mehr im Internet.

Es ging um das Einlesen von Textrahmeninhalte in eine Arrayvariabel um den Text anschliessend in eine neue Datei als normalen Text einzufuegen.

Vielleicht erinnert sich hier noch jemand daran und hat auch dieses Makro noch ?

Wuerde er mir dieses bitte nochmals zusenden ?

mit freundlichem Gruss

Martin Jenniges

#2

Hallo Martin,

Guten Tag,

ich habe gestern mein System von Libreoffice und OpenOffice befreit, incl den Userordner, um libreoffice ganz neue zu installieren.

Dabei habe ich leider ein wichtiges Makro/Script vergessen und finde es auch nicht mehr im Internet.

Es ging um das Einlesen von Textrahmeninhalte in eine Arrayvariabel um den Text anschliessend in eine neue Datei als normalen Text einzufuegen.

Vielleicht erinnert sich hier noch jemand daran und hat auch dieses Makro noch ?

Wuerde er mir dieses bitte nochmals zusenden ?

meinst du das Makro "DeleteFrameSaveText" ? Danach könntest du in deinen Unterlagen eventuell suchen. Falls du nicht fündig wirst:

Den Quelltext hatte ich mir einst vermutlich aus der de-users-Liste kopiert. Wer der Autor war, weiß ich leider nicht mehr.

Sub DeleteFrameSaveText
oDoc =ThisComponent
oTF = oDoc.getTextFrames
c = oTF.Count - 1
For i = c to 0 Step -1
thisF = oTF.getByIndex(i)
s = thisF.String
otc = oDoc.Text.createTextCursorByRange(thisF.Anchor)
otc.setString(s)
thisF.dispose()
Next
End Sub

Gruß
Karl

#3

Hallo Karl,

ja, das ist das Makro, aber jetzt bekomme ich folgende Fehlermeldung

Type: com.sun.star.uno.RuntimeException
Message: End of content node doesn't have the proper start node.

Gruss
Martin

#4

Hallo Martin,

nach einer Volltextsuche in meinem Mailarchiv wurde ich fündig. Autor des Makros ist Hans-Werner Herold. Es folgten allerdings noch weitere Änderungen im Code. Nachfolgend seine letzte Anpassung.

Da ich kein Spezialist für Makros bin, kann ich dir leider nicht selbst helfen. Vielleicht klappt es ja mit dieser Version.

Gruß
Karl

#5

Hallo Karl,

das ist fast das richtige; es muesste am Ende der gesammelte Text in eine neue Dokument im A4 Format gespeichert werden und nicht in das geoeffnete.

es ist moeglich, dass der Poster des Makros mir damals das fertige Makro direkt zugemailt hat und es deshalb nicht im Archiv ist

Gruss
Martin

#6

Hallo Martin,

ich hatte zwar Deine Postings mitverfolgt, aber nicht mehr realisiert, dass ich dieses Makro geschrieben hatte. Glücklicherweise wurde Karl in seinem Mail-Archiv fündig und hat meinen Namen dazu geschrieben. Nun ja, dann kapierte ich erst mal: Huch, das habe ja ich geschrieben :open_mouth: ...

Ich habe (jetzt) im https://listarchives.libreoffice.org/de/users/ gesucht und (wohl) alle Mails dazu gefunden:

Martin Jenniges, Mon Oct 22 10:32:34 GMT 2018:
https://listarchives.libreoffice.org/de/users/msg20651.html
:
OoOHWHOoO, Tue Oct 23 08:47:02 GMT 2018:
https://listarchives.libreoffice.org/de/users/msg20672.html

Martin Jenniges, Tue Oct 23 11:56:36 GMT 2018:
https://listarchives.libreoffice.org/de/users/msg20674.html

Nein, auch das fertige Makro hatte ich Dir über https://listarchives.libreoffice.org/de/users/ (s.o.) zugesendet.

Viele Grüße,
Hans-Werner :-))

------ Originalnachricht ------

#7

Hallo, vielen Dank; jetzt funktioniert das Makro wieder wie gewuenscht.

viele Gruesse, Martin