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

Attachment: signature.asc
Description: OpenPGP digital signature

Reply via email to