Re: [fr-users] Macro ... et couleurs de lettre

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 <isaric.co@free.fr> 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 à users+unsubscribe@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



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

-- 
Envoyez un mail à users+unsubscribe@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