[users-fr] raccourcci clavier et runtime error

2005-04-20 Par sujet Laurent Lardy
Bonjour,
J'ai construit des macro sous texte à l'aide de l'outils disponible dans le 
menu du même nom.
J'ai ensuite attribué des réccourcis clavier à ces macros.
Lors de leur utilisation, j'obtiens très (trop!) souvent le message d'erreur 
suivant:

runtime error BASIC.
Variable d'objet non paramétrée.

Je joins la dernière macro construite : 

sub Titre2
rem --
rem define variables
dim document   as object
dim dispatcher as object
rem --
rem get access to the document


dispatcher = createUnoService(com.sun.star.frame.DispatchHelper)

rem --
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = Template
args1(0).Value = Titre 2
args1(1).Name = Family
args1(1).Value = 2

dispatcher.executeDispatch(document, .uno:StyleApply, , 0, args1())

end sub

Où est l'erreur? Dans la macro (peu probable) ou dans mon utilisation (fort 
probable)?

Lardy Laurent

Re: [users-fr] raccourcci clavier et runtime error

2005-04-20 Par sujet Didier Dorange-Pattoret
Bonsoir Laurent,
Attention cette liste n'est pas la bonne pour les questions sur la 
programmation.

Laurent Lardy a écrit :
Bonjour,
J'ai construit des macro sous texte à l'aide de l'outils disponible dans le 
menu du même nom.
J'ai ensuite attribué des réccourcis clavier à ces macros.
Lors de leur utilisation, j'obtiens très (trop!) souvent le message d'erreur 
suivant:
runtime error BASIC.
Variable d'objet non paramétrée.
 

Sur quel ligne de code ?
document n'est pas défini dans le code qui suit.
Essayez avec :
Dim oDesktop as Object
oDesktop = createUnoService(com.sun.star.frame.Desktop)
document= oDesktop.getCurrentComponent().getCurrentController()
au lieu de
document = Thiscomponent

Je joins la dernière macro construite : 

sub Titre2
rem --
rem define variables
dim document   as object
dim dispatcher as object
rem --
rem get access to the document
dispatcher = createUnoService(com.sun.star.frame.DispatchHelper)
rem --
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = Template
args1(0).Value = Titre 2
args1(1).Name = Family
args1(1).Value = 2
dispatcher.executeDispatch(document, .uno:StyleApply, , 0, args1())
end sub
Où est l'erreur? Dans la macro (peu probable) ou dans mon utilisation (fort 
probable)?
Lardy Laurent
 

Cordialement.
--
Didier Dorange-Pattoret
http://www.dmaths.org
http://sesamath.net
S'inscrire à la liste de diffusion de dmaths: [EMAIL PROTECTED]
Ses archives: http://listes.dmaths.org/wws/arc/users
Les Forums: http://www.dmaths.org/modules.php?name=Forums
Mailing List in english: 
http://www.dmaths.org/modules.php?name=Contentpa=showpagepid=9
Le livre de référence pour OpenOffice.org : 
http://www.amazon.fr/exec/obidos/ASIN/2212114389/dmaths-21
Programmation OpenOffice.org : 
http://www.amazon.fr/exec/obidos/ASIN/2212114397/dmaths-21
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]