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