Ooopps

cliqué trop vite :o)
la première manière de changer la couleur est via la fonction RGB mais ici
elle est écrasée par la ligne suivante qui fait un aléatoire sur toutes les
couleurs possibles.
A toi de choisir ce qui te convient comme ligne ;)

Yves

Le 5 juin 2018 à 21:42, yves dutrieux <[email protected]> a écrit :

> sub DiffCouleur1
> rem ----------------------------------------------------------------------
> rem define variables
> dim document   as object
> dim dispatcher as object
> rem ----------------------------------------------------------------------
> rem get access to the document
> document   = ThisComponent
> curseur=ThisComponent.currentcontroller.ViewCursor
> ' change les 10 caractères qui suivent le curseur courant par une couleur
> aléatoire
>   for i = 1 to 10
>       curseur.goright(1,true)
>       curseur.CharColor=rgb(i*24,0,0)
>       curseur.CharColor=rnd()*16581375
>       curseur.goleft(1,false)
>       curseur.goright(1,false)
>   next
> end sub
>
>
>
> Le 5 juin 2018 à 14:47, isaric <[email protected]> a écrit :
>
>> Merci Jean-Francois Nifenecker  pour ta réponse à la question n°1 qu'il
>> l'a
>> résolu
>>
>> pour la 2e je n'ai pas encore trouvé de solution
>>
>> *Question 2)*
>> Faire une macro avec des couleurs des caractères différents --> le fichier
>> joint :
>> Couleur de lettre.odt <http:// https://www.cjoint.com/c/HFedoTRr5kn>
>> Problème les couleurs changent ?
>>
>>
>>
>>
>>
>>
>>
>> -----
>> Utilise Libreoffice avec Ubuntu
>> --
>> Sent from: http://document-foundation-mail-archive.969070.n3.nabble.com
>> /Users-f1744091.html
>>
>> --
>> Envoyez un mail à [email protected] 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
>



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

-- 
Envoyez un mail à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à 
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy

Répondre à