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

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

viele Gruesse, Martin


Am 03.04.2020 um 16:29 schrieb OoOHWHOoO:
> 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