Öffnen-Dialog per Makro aufrufen
Verfasst: Di, 03.01.2006 17:58
Zum Aufrufen des Öffnen-Dialogs habe ich zwei Makros, die beide nicht das gewünschte Ergebnis bringen.
Das erste Makro ist mit dem Makrorekorder aufgezeichnet. Es funktioniert. Aber leider habe ich keine Möglichkeit gefunden, um das Startverzeichnis (c:\verzeichnis) festzulegen.
Das zweite ist von den StarBasic-FAQ von Michael Dannenhöfer. Hier kann ich das Startverzeichnis festlegen. Der Öffnen-Dialog mit dem festgelegten Startverzeichnis wird angezeigt. In dem Öffnen-Dialog funktioniert alles (z.B. ein neues Verzeichnis anlegen), nur nicht das Öffnen einer markierten Datei.
Zu dem Makro von Michael Dannenhöfer gibt es im Internet etliche Varianten. Manche zeigen in einer Message-Box Pfad und Dateinamen an, wie man eine Datei öffnet, habe ich nicht herausgefunden.
Wer kann mir helfen?
sub OeffnenMakrorekorder
rem define variables
dim document as object
dim dispatcher as object
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Open", "", 0, Array())
end sub
Sub TestDialogVonDannenhöfer
MyDialog = createunoservice("com.sun.star.ui.dialogs.FilePicker")
myDialog.displaydirectory="c:\"
MyDialog.execute
FileName = MyDialog.Files(0)
End sub
Das erste Makro ist mit dem Makrorekorder aufgezeichnet. Es funktioniert. Aber leider habe ich keine Möglichkeit gefunden, um das Startverzeichnis (c:\verzeichnis) festzulegen.
Das zweite ist von den StarBasic-FAQ von Michael Dannenhöfer. Hier kann ich das Startverzeichnis festlegen. Der Öffnen-Dialog mit dem festgelegten Startverzeichnis wird angezeigt. In dem Öffnen-Dialog funktioniert alles (z.B. ein neues Verzeichnis anlegen), nur nicht das Öffnen einer markierten Datei.
Zu dem Makro von Michael Dannenhöfer gibt es im Internet etliche Varianten. Manche zeigen in einer Message-Box Pfad und Dateinamen an, wie man eine Datei öffnet, habe ich nicht herausgefunden.
Wer kann mir helfen?
sub OeffnenMakrorekorder
rem define variables
dim document as object
dim dispatcher as object
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Open", "", 0, Array())
end sub
Sub TestDialogVonDannenhöfer
MyDialog = createunoservice("com.sun.star.ui.dialogs.FilePicker")
myDialog.displaydirectory="c:\"
MyDialog.execute
FileName = MyDialog.Files(0)
End sub