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...@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.massard...@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+unsubscr...@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 > -- Envoyez un mail à users+unsubscr...@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