Seite 1 von 1
Makrofrage
Verfasst: Mi, 29.11.2006 13:46
von mike6
Hallo,
ich suche Makro's für Oo.2.0.4:
a.) Der Dialog "DRUCKEN" soll aufgerufen werden.
b.) Die Datei soll geschlossen werden. Wenn noch nicht
gespeichert ist, soll zum speichern aufgefordert werden.
Wer kann weiterhelfen?
mfg
mike6
Re: Makrofrage
Verfasst: Mi, 29.11.2006 14:44
von komma4
mike6 hat geschrieben:ich suche Makro's für Oo.2.0.4:
Für's Protokoll: der Plural von "Makro" ist "Makros".
Im Deutschen gibt es ausserdem kein "Genitiv-S-Apostroph"!
a)
Code: Alles auswählen
Sub myPrinterDialog
GlobalScope.BasicLibraries.LoadLibrary("Tools")
' Datei -> Drucken...
DispatchSlot(5504)
End Sub
Für b) müsste ich etwas im Archiv suchen, aber gerade ist wieder Arbeit 'rein gekommen.....
Verfasst: Do, 30.11.2006 11:41
von RS
Hi,
lt. OO-Buch zum Thema Makros findet sich bei Andrew Pitonyak auch ein Makro zum Schließen von Dokumenten. Der Link auf die entsprechende Seite lautet:
http://www.pitonyak.org/oo.php
Da müsstest/könntest Du ein wenig recherchieren, zur Komplettierung des Dir bereits genannten Makros für Teil a), und vielleicht bekommst Du ja auch noch den kompletten Code hier geliefert.
Gruß,
Rebecca
P.S.: Ich habe versucht aus einer Kombination Makrorekorder (für Teil a) plus Code aus dem OO-Buch Dir "Deinen" Makro zu basteln, aber das hat nicht auf Anhieb funktioniert, leider hatte ich keine Zeit mehr weiter zu probieren...
Verfasst: Fr, 01.12.2006 17:18
von mike6
Hallo,
vielen Dank für das Makro und den Tipp.
-
-
und den "Genitiv-S-Apostroph".
-
mfg
mike6
Verfasst: Mo, 04.12.2006 11:11
von RS
Hi,
habe mir das Folgende zusammengebastelt (Makrorecorder+Code aus dem OO-Makros-Buch), allerdings in Abweichung von dem bereits geposteten Makro für den ersten Teil. Bei mir funktioniert es, und vielleicht ist es das, was Du wolltest.
Gruß,
Rebecca
sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:PrintDefault", "", 0, Array())
rem ----------------------------------------------------------------------
ThisComponent.store()
wait(100)
ThisComponent.dispose()
end sub
Verfasst: Mo, 04.12.2006 17:18
von mike6
Hallo Rebecca,
1000 Dank für den Code.
mfg
mike6