Re
je reposte sur la liste francophine la reponse que je t'ai faite qsue la
liste anglaise
exemple de code pour OnNew et OnLoad
a toi d'adpter
HTH
Laurent
'----------------------------------------
sub ConfigureDemarre(SetOrNot)
dim monEvent(0 to 1) as new com.sun.star.beans.PropertyValue
monEvent(0).name = "EventType"
monEvent(0).value="Basic"
monEvent(1).name = "Script"
if SetOrNot = 1 then
monEvent(1).value="macro:///myLib.myModule.mySub()"
else
monEvent(1).value=""
endif
'for only bind to the document
'lesEvents = thisComponent.events
'lesEvents.replaceByName("OnStartApp", monEvent())
GlobalEvent = createUnoservice("com.sun.star.frame.GlobalEventBroadcaster")
GlobalEvent.Events.ReplaceByName("OnNew", monEvent())
GlobalEvent.Events.ReplaceByName("OnLoad", monEvent())
end sub
--
Laurent Godard <[EMAIL PROTECTED]> - Ingénierie OpenOffice.org
Indesko >> http://www.indesko.com
Nuxeo CPS >> http://www.nuxeo.com - http://www.cps-project.org
Livre "Programmation OpenOffice.org", Eyrolles 2004
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
