Re: [fr-users] macro dans writer

Bonjour,

C'est fait grâce aux instructions suivantes (dans la macro que j'ai envoyée)

for x = 0 to trouv.Count -1
trouv(x).string = Int((8*Rnd)+1)
next

-------- Message original --------
Sujet : Re: [fr-users] macro dans writer
De : Élodie Omer <cybelodie@gmail.com>
Pour : users@fr.libreoffice.org
Date : 16/06/2011 11:16
> Bonjour, 
>
>   
> > Pourquoi ne pas utiliser le recherche et remplace. 
> >     
>
> Comment fait-on alors le nombre aléatoire ??? 
>
>
> -------- Message original -------- 
> Sujet : [fr-users] macro dans writer 
> De : Olivier Jaccomard <jaccomard@free.fr> 
> Pour : users@fr.libreoffice.org 
> Date : 15/06/2011 23:52 
>   
> > Bonjour, 
> >
> > cherchant à convertir un système fait sous Word, je voudrais faire une 
> > macro qui remplace tous les caractères µ d'un document par un nombre 
> > aléatoire entre 1 et 8. 
> >
> > J'ai essayé ça, mais sans résultat (mon curseur ne se déplace pas) : 
> >
> > Pouvez-vous m'aider ? 
> > Cordialement, 
> > O.Jaccomard 
> >
> > Sub Macro1 
> > Randomize 2^14-1 
> > Dim monDocument As Object, monTexte As Object 
> > Dim monCurseur As Object 
> > Dim curseurVisible As Object 
> >
> > monDocument = ThisComponent 
> > monTexte=monDocument.Text 
> > monCurseur=monTexte.createTextCursor 
> > curseurVisible=monDocument.CurrentController.getViewCursor 
> > monDocument.CurrentController.Select(monCurseur) 
> > monCurseur.gotoStart(False) 
> > curseurVisible.gotoStart(false) 
> > For i=1 To monDocument.CharacterCount 
> > If (curseurVisible.String="µ") Then 
> > curseurVisible.String=Int((8*Rnd)+1) 
> > End If 
> > monCurseur.goRight(1,false) 
> > curseurVisible.goRight(1,false) 
> > Next i 
> > End Sub 
> >
> >
> >     
>
>
>
>   



--
Envoyez un mail à users+help@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés