SetNeuerAutor

Setzt aus einer Inputbox einen neunen Autor als Ersteller.

Basic

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