Hallo Hans-Werner,
bei deiner Lösung wird aber der Text "in falscher Richtung"
zusammengeführt; vom letzten Rahmen + vorletztem Rahmen + vorvorletztem
Rahmen...
das lässt sich natürlich richtig rum programmieren ;-)
ich habe nur wenig Erfahrung mit Makroprogrammierung, ich schnippele die
aus dem Internet zusammen
viele Grüsse
Martin
Am 22.10.2018 um 18:11 schrieb OoOHWHOoO:
Hallo Martin,
na klar, so kann man es auch machen. Indem bei Deinem Makro nichts
gelöscht wird, kann die Schleife "vorwärts" laufen, weil keine
"INDEX-Verschiebungen" passieren.
Wenn Du sie "rückwärts" laufen lässt, musst Du nicht extra ein neues
Dokument anlegen.
Die beiden "Dim"s kannst Du Dir sparen, da die anderen Variablen auch
nicht ge"Dim"t sind. Wenn Du allerdings "Option Explicit" nutzt, was
man immer machen sollte, dann müssen alle Variablen ge"Dim"t sein.
Mit "& chr(10) & chr(10)" anstatt "& chr(13)" hättest Du dann immer
noch eine Leerzeile dazwischen.
Sub DeleteFrameSaveText
' KOMMENTIERT: Dim oViewCursor as object
' KOMMENTIERT: Dim oText As Object
oDoc =ThisComponent
oTF = oDoc.getTextFrames
c = oTF.Count - 1
sText = " "
' KOMMENTIERT: For i = 0 to c
For i = c to 0 Step -1
thisF = oTF.getByIndex(i)
sText = sText & thisF.String & chr(10) & chr(10)
thisF.dispose()
Next
' KOMMENTIERT: 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 ;-))
------ Originalnachricht ------
Von: "Martin Jenniges" <martinjenni...@skynet.be>
An: users@de.libreoffice.org
Gesendet: 22.10.2018 17:21:26
Betreff: Re: [de-users] mangelhaftes Writer-Makro bezüglich Textrahmen
verbessern
Hallo Hans-Werner,
auch ich habe mir gedacht, dass das Löschen den Fehler verursacht.
ich habe mir das Makro folgendermassen aus dem Internet
zusammengesnippelt
Sub DeleteFrameSaveText
Dim oViewCursor as object
dim oText As Object
oDoc =ThisComponent
oTF = oDoc.getTextFrames
c = oTF.Count - 1
sText = " "
For i = 0 to c
thisF = oTF.getByIndex(i)
sText = sText & thisF.String & chr(13)
Next
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
Jetzt liest das Makro nacheinander den Text der Rahmen in die
Variabel sText, erzeugt ein neues Writer-Dokument und fügt den Inhalt
von sText ein. Das genügt mir
mit freundlichem Gruss
Martin
Am 22.10.2018 um 15:57 schrieb OoOHWHOoO:
Hallo Martin,
die Fehlermeldung
BASIC-Laufzeitfehler.
Es ist eine Ausnahme aufgetreten
Type: com.sun.star.lang.IndexOutOfBoundsException
Message: .
besagt wohl, dass via "thisF = oTF.getByIndex(i)" ein Element
indiziert wird, dass es bezüglich des Index nicht (mehr) gibt.
Ich vermute mal, dass durch das FRAME-Löschen ( thisF.dispose() )
der letzte Index ( bezüglich "oTF.getByIndex(i)" ) immer um 1
vermindert wird, die Schleife aber "zu weit" zählt.
Entschuldige bitte die etwas "holprige" Erläuterung, aber bezüglich
"FRAMEs löschen" habe ich keinerlei Erfahrung.
Lässt man die Schleife rückwärts laufen ( For i = c to 0 Step -1 )
funktioniert das Makro. Ich hatte über [Einfügen]>[Rahmen]>[Rahmen
interaktiv] 3 Rahmen in eine WRITER-Dokument eingefügt und jeweils
mit Text gefüllt. Nach Makro-Ausführung waren die Rahmen weg und der
Text direkt nacheinander in mehreren Zeilen aufgelistet:
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ß
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
