von komma4 » Mi, 05.12.2012 11:57
Nehme nachfolgendes Makro, speichere es in einem Modul Deiner
STANDARD Makro-Bibliothek Deiner OOo-Installation oder der verwendeten Dokumentvorlage und weise es dem
Extras>Anpassen...>Ereignisse Dokument wurde gespeichert zu
Code: Alles auswählen
SUB de58856
' Einstellen des Dateinamens ohne Erweiterung
' in Datei>Eigenschaften>Titel damit (nach PDF-Export)
' der Titel des PDF dem Dateinamen entspricht
'
' Dem Ereignis "Dokument wurde gespeichert" zugeordnet
'
' 2012-12-05
IF NOT GlobalScope.BasicLibraries.isLibraryLoaded( "Tools" ) THEN
GlobalScope.BasicLibraries.loadLibrary( "Tools" )
END IF
oDocumentInfo = ThisComponent.getDocumentInfo()
oDocumentProperties = oDocumentInfo.getDocumentProperties()
oDocumentProperties.Title = _
GetFileNamewithoutExtension( _
FileNameoutofPath( ThisComponent.URL ))
END SUB
Das funktioniert wie gewünscht?
Nehme nachfolgendes Makro, speichere es in einem Modul Deiner [color=#0000FF]STANDARD[/color] Makro-Bibliothek Deiner OOo-Installation oder der verwendeten Dokumentvorlage und weise es dem [color=#008000]Extras>Anpassen...>Ereignisse[/color] [color=#0000FF]Dokument wurde gespeichert[/color] zu
[code]SUB de58856
' Einstellen des Dateinamens ohne Erweiterung
' in Datei>Eigenschaften>Titel damit (nach PDF-Export)
' der Titel des PDF dem Dateinamen entspricht
'
' Dem Ereignis "Dokument wurde gespeichert" zugeordnet
'
' 2012-12-05
IF NOT GlobalScope.BasicLibraries.isLibraryLoaded( "Tools" ) THEN
GlobalScope.BasicLibraries.loadLibrary( "Tools" )
END IF
oDocumentInfo = ThisComponent.getDocumentInfo()
oDocumentProperties = oDocumentInfo.getDocumentProperties()
oDocumentProperties.Title = _
GetFileNamewithoutExtension( _
FileNameoutofPath( ThisComponent.URL ))
END SUB [/code]
Das funktioniert wie gewünscht?