Hallo,
Monja Schnider schrieb:
> [EMAIL PROTECTED] schrieb:
>
> >Hallo zusammen, ....
> >
> >... benötige wieder einmal Hilfe! Kann man im Writer-Programm, die
> >eine Stellungen so einrichten, dass der Titel des bearbeiteten
> >Dokumentes
> >direkt übernehmen werden kann, wenn man auf das Speichersymbol
> >klickt?
Soweit ich weiß Nein, aber Du Kannst ein Makro verwenden was das
erledigt, z.B.:
Sub speichern()
Dim auswahl as Object
Dim dateiname As String
auswahl = createunoservice("com.sun.star.ui.dialogs.FilePicker")
arg =
Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION
)
With auswahl
.Initialize(arg())
.SetValue(
com.sun.star.ui.dialogs.ExtendedFilePickerElementIds.CHECKBOX_AUTOEXTENS
ION, 0, TRUE )
.SetMultiselectionMode(False)
.appendFilter("OpenDocument Text (*.odt)", "*.odt")
.setDefaultName(ThisComponent.GetDocumentInfo.Title)
End With
antwort = auswahl.execute
if antwort = 1 then
Dim Dummy()
Datei = auswahl.Files(0)
ThisComponent.storeAsUrl(ConvertToURL(Datei) , Dummy())
end if
End Sub
Speichere das Makro in einer OOo-Bibliothek.
Passe nun einfach die Symbolleiste an indem Du die
Speichern-Schaltfläche entfernst, für das Makro eine Schaltfläche
hinzufügst und mit dem Symbol der Speichern-Schaltfläche ausstattest,
dann sieht alles aus wie gehabt.
> Also ehrlich gesagt, wäre ich ungeheuer froh, wenn diese
> "Marotte" von
> Word nicht auch noch in OOo Einzug hielte.
> "Hände über dem Kopf zusamnmen-schlag" - bitte, bitte nicht ändern!
> [...]
> Das glaube ich dir gerne - aber für viele Andere wohl eher
> eine Katastrophe.
Bist Du Sicher?
Ich kann mir das nicht vorstellen bzw. weiß nicht was an dieser Funktion
von Word zu bemängeln wäre.
Denn wir reden hier *nicht* über die automatische Nutzung der ersten
Textzeile als Dateiname, sondern über die Verwendung des Titels, den Du
ja erst einmal mit Absicht unter Datei-Eigenschaften eintragen mußt.
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
