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
