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

Merci Yves Dutrieux, cela me dépasse un peu ...

Aussi j'identifie pas ton tableau (mescouleurs() ?) dans tes 2 macros ci
dessous :

REM  *****  BASIC  *****

sub DiffCouleur10cYD1
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 
ou 
REM  *****  BASIC  *****

REM  *****  BASIC  *****

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



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