Makrofrage

[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

[komma4]

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.....

[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...

[mike6]

Hallo,

vielen Dank für das Makro und den Tipp.

- -

und den "Genitiv-S-Apostroph".

-



mfg
mike6

[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

[mike6]

Hallo Rebecca,

1000 Dank für den Code.


mfg
mike6