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
Am 03.04.2020 um 10:41 schrieb Karl Zeiler:
Hallo Martin,
Am 03.04.2020 um 10:02 schrieb Martin Jenniges:
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
--
Liste abmelden mit E-Mail an: [email protected]
Probleme?
https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy
