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 <[email protected]> Pour : [email protected] 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 à [email protected] 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 à [email protected] 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
