Hallo,
Verena Ruff schrieb:
> In Word geht es indem man bei den Dokumenteigenschaften das
> Attribut Titel
> setzt. Word verwendet dass dann als Vorschlag. Das klappt
> mit OOo nicht. Wie
> kann man das hier machen?
In der Dokumentvorlage das Menü und ggf. die Symbolleisten anpassen und
die Orginal-Speicherbefehlseinträge durch Makroaufrufe ersetzen und
eigene Speicher-Makros zuordnen, inhaltlich etwa so:
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")
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
Hier wird der Vorgabename direkt übergeben:
dialog.SetDefaultName("MeinDateiname")
sollte das nicht gewünscht sein kannst Du hier auch den vorher durch
Dein Initialisierungsmakro erzeugten Titeleintrag auslesen und
übergeben.
Das das Ganze auch bei erneutem Speichern funktionieren soll, mußt Du
noch eine Abfrage drumrum bauen die feststellt ob das Dokument bereits
einen Namen hat und falls nein dann oden stehende Routine und falls ja
ein einfaches .store(), i.S.:
'...
if ThisComponent.hasLocation Then
ThisComponent.store()
Else
datei_speichern()
End if
'...
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
