Super, das klappt wunderbar und hilft mir gleich noch bei einem anderen
Problem!
Eine kleine Anmerkung habe ich noch dazu geschrieben, falls es irgend
jemand anderes verwendet: das anzuzeigende Verzeichnis sollte gesetzt
werden, zumindest bei mir unter Linux wurde sonst gar kein Verzeichnis
angezeigt, was für den unbedarften Anwender etwas verwirrend sein dürfte.
Jörg Schmidt schrieb:
> Sub datei_speichern()
> arg =
> Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION
> )
> dialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
> dialog.Initialize(arg())
> dialog.appendFilter( "SO/OOo Writerdokument (*.odt)", "*.odt" )
> dialog.SetMultiselectionMode(False)
> dialog.SetDefaultName("MeinDateiname")
>
dialog.setDisplayDirectory( convertToUrl(...) )
> ok = dialog.execute()
> if ok = 1 Then
> datei = dialog.getFiles()
> URL = datei(0)
> document = ThisComponent.CurrentController.Frame
> dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
> dim args1(1) as new com.sun.star.beans.PropertyValue
> args1(0).Name = "URL"
> args1(0).Value = URL
> args1(1).Name = "FilterName"
> args1(1).Value = "writer8"
> dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())
> end if
> End Sub
>
Grüße,
Verena
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
