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

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