Hi, you will find more information here: http://wiki.services.openoffice.org/wiki/Documentation/DevGuide/OfficeDev/Document_Events
OPTION EXPLICIT
Sub setDocEvent()
Dim oDoc as Object
Dim mEvt(1) as New com.sun.star.beans.PropertyValue
oDoc = ThisComponent
mEvt(0).Name = "EventType"
mEvt(0).Value= "Script"
mEvt(1).Name = "Script"
mEvt(1).Value
="vnd.sun.star.script:Standard.Module7.test?language=Basic&location=application"
oDoc.getEvents().replaceByName("OnPrepareUnload", mEvt())
End Sub
Regards
Oliver
--
GnuPG key 0xCFD04A45: 8822 057F 4956 46D3 352C 1A06 4E2C AB40 CFD0 4A45
signature.asc
Description: OpenPGP digital signature
