Hallo,
Serge Kirschbaum schrieb:
> bir zur gewünschten Datei. Ich dachte eher an ein pro
> Funktion gezieltes
> Arbeitsverzeichnis.
Dann mußt Du ebend für jedes Modul ein Makro schreiben und das auf eine
Schaltfläche legen und es ist exakt wie Du es willst. Das Folgende
öffnet beispielsweise Verzeichnis D:\ und zeigt alle *.ods zur Auswahl
an:
Sub dateiauswahl
Dim auswahl as Object
Dim dateiname As String
auswahl = createunoservice("com.sun.star.ui.dialogs.FilePicker")
With auswahl
.appendFilter("OpenDocument-Tabelle", "*.ods")
.SetTitle("Wählen Sie eine Datei")
.setDisplayDirectory(ConvertToURL("d:\"))
End With
antwort = auswahl.execute
if antwort = 1 then
Dim Dummy()
StarDesktop.loadComponentFromURL( auswahl.Files(0) , "_blank", 0,
Dummy() )
end if
End Sub
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
