hallo Gerhard '_macOS _Sierra 10.12.3; LO 5.3.0.3 Wo du recht hast, hast du recht.Habe zu früh abgeschnitten und nun dafür ein lauffähiges, auf Minimum reduziertes Muster in Beilage 'addTab.zip' gemacht. Darin enthalten sind die calc-Files 'LO_tpl.ods' und 'LO_work.ods' sowie die in 'subs4LO_work' gepackten Subs. Zum Testen in der IDE muss 'LO_work.ods' aktiv sein.
Hoffe, damit können meine Fragen beantwortet werden:- Ausgehend von einem Calc-Benutzerfile kopiere ich eine bestimmte Seite aus dem Musterfile ('Hidden' geöffnet und geschlossen). Aktives Frame ist danach 'Meine Makros & Dialoge.wsLib'. Wie kann ich das ursprüngliche, nun erweiterte File zur Weiterbehandlung im Makro aktivieren? - Auch das versteckte Öffnen und Schliessen des Musterfile funktioniert nicht wie erwartet: So wie derzeit realisiert blitzt das Muster beim Öffner kurz auf. Nehme ich 'Hidden' statt " ", dann verschwinden bei 'close' beide Files.
mit freundlichen Grüssen Wolfgang Am 20.02.17 um 21:13 schrieb Gerhard Weydt:
Hallo Wolfgang,ich kann mir nicht vorstellen, dass jemand mit deinen Angaben viel anfangen kann. Das eigentliche Makro, das das Kopieren erledigt, ist ja gar nicht beurteilbar. Wird denn darin das ergänzte File gespeichert? Wenn nicht, dann ist völlig klar, dass das Laden in openFrame den alten Stand liefert.Gerhard Am 16.02.2017 um 11:55 schrieb Wolfgang Schaible:Sehr geehrte Community 'MacOS Sierra 10.12.1 ; jre-8u111 ; LO 5.3.0.3Ausgehend von einem Calc-Benutzerfile kopiere ich eine bestimmte Seite aus dem Musterfile ('Hidden' geöffnet und geschlossen). Aktives Frame ist danach 'Meine Makros & Dialoge.wsLib'. Wie kann ich das ursprüngliche, nun erweiterte File zur Weiterbehandlung im Makro aktivieren?Die Sub 'openFrame' liefert eine 2. Fassung des Benutzerfiles ohne die sichtbare zusätzliche Seite. Was ist falsch an der Sub?mit freundlichen Grüssen Wolfgang Sub openFrame Dim mArgs(1) As new com.sun.star.beans.PropertyValue mArgs(0).Name = "MacroExecutionMode" : mArgs(0).Value = 4mArgs(1).Name = "AsTemplate" : mArgs(1).Value = FALSE' mArgs(2).Name = "ReadOnly" : mArgs(2).Value = TruesUrl = ConvertToUrl("/Users/wsAdm/Documents/me/Gesundh/18_GesundhDta.ods")'1) vFrame = ThisComponent.getCurrentController().getFrame '1) mault: Eigenschaft oder Methode nicht gefunden: getCurrentController vFrames = StarDesktop.GetFrames() For i=1 To vFrames.getCount() vFrame = vFrames.getByIndex(i-1) s = s & CStr(i-1) & " : " & vFrame.Title & CHR(10) If vFrame.Title = "18_GesundhDta.ods" Then Exit for Next i '2) oDoc = vFrame.LoadComponentFromUrl(sUrl,vFrame,2,mArgs()) '2) ergänztes File verschwindet, 2. Fassung des Originals am Schirm wait 1000 '<======= 1s Verzögerung oDoc = vFrame.LoadComponentFromUrl(sUrl,"",2,mArgs()) '3) 1s bleibt das ergänzte file, wird überschrieben vom Original End Sub
-- Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/ Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de Listenarchiv: http://listarchives.libreoffice.org/de/users/ Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert