Re: [fr-users] macro dans writer

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 


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