macro

classic Classic list List threaded Threaded
6 messages Options
demande_aide_fr demande_aide_fr
Reply | Threaded
Open this post in threaded view
|

macro

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:: [hidden email]
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 à [hidden email] pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
Thierry Jeanneret Thierry Jeanneret
Reply | Threaded
Open this post in threaded view
|

Re: macro

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, <[hidden email]> 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:: [hidden email]
> 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 à [hidden email] 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 à [hidden email] pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
Gilles Massardier Gilles Massardier
Reply | Threaded
Open this post in threaded view
|

Re: macro

cela me semble une bonne raison, par contre comment faire pour que le
caractère spéciale soit sélectionné??? Je n'y connais rien en
programmation de macro (et je n'ai pas le loisir de m'y mettre
malheureusement)...

Le 11/11/2018 à 18:26, Thierry Jeanneret a écrit :

> 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, <[hidden email]
> <mailto:[hidden email]>> 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:: [hidden email]
>     <mailto:[hidden email]>
>     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 à [hidden email]
>     <mailto:users%[hidden email]> 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 à [hidden email] pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
yves dutrieux yves dutrieux
Reply | Threaded
Open this post in threaded view
|

Re: macro

Bonjour,

tu dois insérer ton texte APRES l'affectation de tes propriétés (voici le
code corrigé) :
sub insert_text
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 ----------------------------------------------------------------------
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())

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())

end sub


Yves

Le dim. 11 nov. 2018 à 18:31, Gilles Massardier <[hidden email]>
a écrit :

> cela me semble une bonne raison, par contre comment faire pour que le
> caractère spéciale soit sélectionné??? Je n'y connais rien en
> programmation de macro (et je n'ai pas le loisir de m'y mettre
> malheureusement)...
>
> Le 11/11/2018 à 18:26, Thierry Jeanneret a écrit :
> > 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, <[hidden email]
> > <mailto:[hidden email]>> 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:: [hidden email]
> >     <mailto:[hidden email]>
> >     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 à [hidden email]
> >     <mailto:users%[hidden email]> 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 à [hidden email] pour vous
> désinscrire
> Les archives de la liste sont disponibles à
> https://listarchives.libreoffice.org/fr/users/
> Privacy Policy: https://www.documentfoundation.org/privacy
>


--
web site : http://www.molenbaix.com

--
Envoyez un mail à [hidden email] pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
Gilles Massardier Gilles Massardier
Reply | Threaded
Open this post in threaded view
|

Re: macro

merci j'essai tout de suite...


De : yves dutrieux <[hidden email]>
À : [hidden email]
Sujet : Re: [fr-users] macro
Date : 11/11/2018 19:09:52 CET
Copie à : Thierry Jeanneret <[hidden email]>;
   users LibreOffice LO <[hidden email]>

Bonjour,



tu dois insérer ton texte APRES l'affectation de tes propriétés (voici le code corrigé) :

sub insert_text
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 ----------------------------------------------------------------------
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())

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())

end sub





Yves





Le dim. 11 nov. 2018 à 18:31, Gilles Massardier <[hidden email]> a écrit :

cela me semble une bonne raison, par contre comment faire pour que le
caractère spéciale soit sélectionné??? Je n'y connais rien en
programmation de macro (et je n'ai pas le loisir de m'y mettre
malheureusement)...

Le 11/11/2018 à 18:26, Thierry Jeanneret a écrit :

> 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, <[hidden email]
> <mailto:[hidden email]>> 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:: [hidden email]
>     <mailto:[hidden email]>
>     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 à [hidden email]
>     <mailto:users%[hidden email]> 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 à [hidden email] pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy



--

web site : http://www.molenbaix.com


--
Envoyez un mail à [hidden email] pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
Gilles Massardier Gilles Massardier
Reply | Threaded
Open this post in threaded view
|

Re: macro

Eh bien ça marche très bien comme ça, vu le nombre de fois ou j'aurai
besoin de cette macro, je vais gagner au moin une heure de boulot... Merci

Le 11/11/2018 à 19:12, Gilles Massardier a écrit :

> merci j'essai tout de suite...
>
>
> De : yves dutrieux <[hidden email]>
> À : [hidden email]
> Sujet : Re: [fr-users] macro
> Date : 11/11/2018 19:09:52 CET
> Copie à : Thierry Jeanneret <[hidden email]>;
>     users LibreOffice LO <[hidden email]>
>
> Bonjour,
>
>
>
> tu dois insérer ton texte APRES l'affectation de tes propriétés (voici le code corrigé) :
>
> sub insert_text
> 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 ----------------------------------------------------------------------
> 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())
>
> 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())
>
> end sub
>
>
>
>
>
> Yves
>
>
>
>
>
> Le dim. 11 nov. 2018 à 18:31, Gilles Massardier <[hidden email]> a écrit :
>
> cela me semble une bonne raison, par contre comment faire pour que le
> caractère spéciale soit sélectionné??? Je n'y connais rien en
> programmation de macro (et je n'ai pas le loisir de m'y mettre
> malheureusement)...
>
> Le 11/11/2018 à 18:26, Thierry Jeanneret a écrit :
>> 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, <[hidden email]
>> <mailto:[hidden email]>> 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:: [hidden email]
>>       <mailto:[hidden email]>
>>       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 à [hidden email]
>>       <mailto:users%[hidden email]> 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 à [hidden email] pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy