Wie kann man den Autor einer Datei ändern?

Man kann bei den Eigenschaften einer Datei nicht den ersten Autor ändern. Man kann ihn löschen, aber keinen neuen einfügen. Mit einem Makro geht es aber doch. Der benötigte Service ist "Documentinfo".

Basic

sub neuerautor
  oDoc=thiscomponent
  nautor=inputbox("Bitte geben Sie den Autor ein","Neuer Autor")
  oDoc.DocumentInfo.Author=nautor 
end sub

Damit wird der neue Autor für die Erstellung eingetragen.