10.3.22 SetNeuerAutor
Setzt aus einer Inputbox einen neunen Autor als Ersteller.


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