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

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 :-O ...

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 ------
Von: "Martin Jenniges" <martinjenniges@skynet.be>
An: users@de.libreoffice.org
Gesendet: 03.04.2020 14:35:21
Betreff: Re: [de-users] writer: leider Script/Makro verloren gegangen

> 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
>
>
> Am 03.04.2020 um 13:22 schrieb Karl Zeiler:
> > 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
> >
> > Hans-Werner Herold schrieb am 23.10.2018:
> > Hallo Martin,
> > [...]
> > Ich habe das Makro entsprechend angepasst ohne dabei Deine Makro-Grundidee zu verändern:
> >
> > + Ich habe ein ARRAY "arrayText" unbekannter Größe angelegt.
> > + Die FRAME-Inhalte werden jetzt fortlaufend in die einzelnen ARRAY-Elemente von "arrayText" 
> > abgespeichert.
> > + Abschließend werden die ARRAY-Element-Inhalte von "arrayText" in einer rückwärts laufenden Schleife nach 
> > "sText" abgespeichert.
> > + "sText" wird wie gewohnt ausgegeben.
> >
> > Zum Test habe ich 3 Text-Rahmen angelegt:
> >
> > "-1- Heute ist ein schöner Tag !"
> > "-2- Heute ist ein schöner Tag !"
> > "-3- Heute ist ein schöner Tag !"
> >
> > Alle 3 Texte werden komplett in richtiger Reihenfolge ausgegeben.
> >
> > Hier das modifizierte Makro:
> >
> >
> > Sub DeleteFrameSaveText
> > ' GELÖSCHT: Dim oViewCursor as object
> > ' GELÖSCHT: Dim oText As Object
> > Dim arrayText() ' NEU: ARRAY unbekannter Größe anlegen
> > oDoc =ThisComponent
> > oTF = oDoc.getTextFrames
> > c = oTF.Count - 1
> > ' GELÖSCHT: sText = " "
> > ' GELÖSCHT: For i = 0 to c
> > iText = -1 ' NEU: INDEX-Variable für ARRAY vorbelegen
> > For i = c to 0 Step -1
> > thisF = oTF.getByIndex(i)
> > iText = iText + 1 ' NEU: INDEX-Variable für ARRAY hochzählen
> > ReDim Preserve arrayText(iText) ' NEU: Neues ARRAY-Element indizieren !
> > arrayText(iText) = thisF.String & chr(10) & chr(10) ' NEU: FRAME-Inhalt an neues ARRAY-Element 
> > zuweisen
> > ' GELÖSCHT: sText = sText & thisF.String & chr(10) & chr(10)
> > thisF.dispose()
> > Next
> > sText = "" ' NEU: STRING-Variable vorbelegen
> > For iText = Ubound(arrayText) To 0 Step -1 ' NEU: Schleife rückwärts über ARRAY-Elemente
> > sText = sText & arrayText(iText) ' NEU: Inhalt aktuelles ARRAY-Element an STRING-Variable
> > Next iText
> > ' GELÖSCHT: oDoc = StarDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, Array())
> > oViewCursor= thisComponent.GetCurrentController.ViewCursor
> > If IsEmpty(oViewCursor.Cell) Then
> > oText=thiscomponent.text
> > Else
> > oText=oViewCursor.Cell.Text
> > End If
> > oText.insertString(oViewCursor,sText,false)
> > End Sub
> >
> >
> > Gruß
> > Hans-Werner ;-))
>
>
> -- 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


--
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