Re: [de-users] writer: leider Script/Makro verloren gegangen

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: users+unsubscribe@de.libreoffice.org
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