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