Titel entfernen bei Dokumentvorlage?

[komma4]

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?