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"
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+unsubscr...@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+unsubscr...@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
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"
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+unsubscr...@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+unsubscr...@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
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+unsubscr...@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
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+unsubscr...@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
Re: [de-users] writer: leider Script/Makro verloren gegangen
Hallo Karl, ja, das ist das Makro, aber jetzt bekomme ich folgende Fehlermeldung Type: com.sun.star.uno.RuntimeException Message: End of content node doesn't have the proper start node. Gruss Martin Am 03.04.2020 um 10:41 schrieb Karl Zeiler: 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+unsubscr...@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
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+unsubscr...@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
[de-users] writer: leider Script/Makro verloren gegangen
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 ? mit freundlichem Gruss Martin Jenniges -- Liste abmelden mit E-Mail an: users+unsubscr...@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
