Bonsoir,
A priori je dirais que lorsque vous mettez l'attribut Bold ou la
couleur rien n'est sélectionné. Mais ce n'est qu'une hypothèse.
Thierry
Le dim. 11 nov. 2018 à 17:22, <demande_aide_fr@libreoffice.org
<mailto:demande_aide_fr@libreoffice.org>> a écrit :
Bonjour
Voici une nouvelle question envoyée à l'aide du formulaire de
demande d'aide
(http://fr.libreoffice.org/get-help/poser-une-question/).
Si vous répondez, merci de penser à utiliser la fonction "répondre
à tous" de votre logiciel de courrier électronique de façon que le
demandeur reçoive une copie de votre réponse.
Email:: gilles.massardier@net-c.com
<mailto:gilles.massardier@net-c.com>
Sujet:: macro
OS:: Linux
Version:: 6.1.x
Question:: J'ai enregistré une macro :
insertion d'un caractère spécial puis mise en gras et mise en
couleur... mais quand j'exécute la macro, l'insertion du caractère
se fait mais pas la mise en forme. Pourtant dans la macro
l'ensemble des demandes est enregistré...
voici la macro en question...
sub Main
rem
----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem
----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Text"
args1(0).Value = " "
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0,
args1())
rem
----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Symbols"
args2(0).Value = "†"
args2(1).Name = "FontName"
args2(1).Value = "Liberation Serif"
dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0,
args2())
rem
----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:InsertSymbol", "",
0, Array())
rem
----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Bold"
args4(0).Value = true
dispatcher.executeDispatch(document, ".uno:Bold", "", 0, args4())
rem
----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Color"
args5(0).Value = 255
dispatcher.executeDispatch(document, ".uno:Color", "", 0, args5())
end sub
quelqu'un sait-il ou est le problème???
merci
Gilles
-- Envoyez un mail à users+unsubscribe@fr.libreoffice.org
<mailto:users%2Bunsubscribe@fr.libreoffice.org> pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy