[pdarcy]

From the Open Office forum

Sub ChangeAuthor
Dim props,sAns
props = ThisComponent.getDocumentInfo
sAns = InputBox("Enter author name.","Change Author",)
If sAns = "" then End
props.Author = sAns
End Sub

Works in Open Office on Windows and NeoOffice on a Mac. Changes only the current document not the User Settings.