Makro beim Speichern ausführen
Verfasst: Mi, 29.12.2010 20:15
Hallo !
Ich habe eine Datei, in der ich einer Schaltfläche ein Makro zugewiesen habe. Nun möchte ich aber, dass das Makro, insbesondere die Speicherung der Datei als PDF in dem Moment erfolgt, wenn ich die Datei abspeichere.
Makro im Moment:
Kann mir da jemand helfen?
Gruß Andy
Moderation,4: Beitrag ins zuständige Unterforum verschoben; CODE-tags gesetzt
Ich habe eine Datei, in der ich einer Schaltfläche ein Makro zugewiesen habe. Nun möchte ich aber, dass das Makro, insbesondere die Speicherung der Datei als PDF in dem Moment erfolgt, wenn ich die Datei abspeichere.
Makro im Moment:
Code: Alles auswählen
REM ***** BASIC *****
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 ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///F:/BSM/BSM_Plan_12_09.pdf"
args1(1).Name = "FilterName"
args1(1).Value = "calc_pdf_Export"
dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
end subKann mir da jemand helfen?
Gruß Andy
Moderation,4: Beitrag ins zuständige Unterforum verschoben; CODE-tags gesetzt