|
Bonjour,
-------Message original-------
Date : 04/11/2006 10:38:54
J'ai copié collé un code trouvé avec l'enregistreur de macro, je le donne
pour ceux qui auraient un jour le même problème:
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:RecSave", "", 0, Array())
Pourrais-je savoir la différence entre la macro de Nicolas et celle-ci ?
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SwitchControlDesignMode"
args1(0).Value = true
dispatcher.executeDispatch(document, ".uno:SwitchControlDesignMode", "", 0, args1())
args1(0).Value = false
dispatcher.executeDispatch(document, ".uno:SwitchControlDesignMode", "", 0, args1())
Merci du renseignement
Françoise | 