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=Content&pa=showpage&pid=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]
