MobileRead Forums - View Single Post - Edit rtf Author Information in Open Office?

pdarcy · 05-26-2007, 11:14 PM

See open office forum post below

http://www.oooforum.org/forum/viewto...perties+author

they provide this macro

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

it works in NeoOffice. It pops up a box for the author and just changes the current document not the user settings.

Paul

05-26-2007, 11:14 PM	#8
pdarcy Member Posts: 10 Karma: 10 Join Date: Jan 2007 Location: Canada Device: Kindle 2	See open office forum post below http://www.oooforum.org/forum/viewto...perties+author they provide this macro Sub ChangeAuthor Dim props,sAns props = ThisComponent.getDocumentInfo sAns = InputBox("Enter author name.","Change Author",) If sAns = "" then End props.Author = sAns End Sub it works in NeoOffice. It pops up a box for the author and just changes the current document not the user settings. Paul