Melanger les lettres des mots Word

Fermé
pangolino Messages postés 18 Date d'inscription samedi 24 janvier 2009 Statut Membre Dernière intervention 8 janvier 2013 - 4 sept. 2009 à 12:01
 ??? ou les nombres - 24 janv. 2010 à 13:08
Bonjour,

J'aimerais savoir si il existe un moyen de mélanger les lettres de chaque mots sous word, du style

"Bonjour tout le monde" deviendrait "rboounj utot el edonm"

Merci de votre aide
A voir également:

1 réponse

JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 857
4 sept. 2009 à 13:42
Bonjour,
avec un peu de code oui.
1)Positionne un signet "dest" à l'endroit où tu veux le résultat.
2)Met ce code dans un module :
Sub mélange()
Randomize
Set masel = Selection.Range
For Each vword In masel.Words
    vword = Trim(vword)
    vwordlen = Len(vword)
    For vlen = 1 To vwordlen
        vpos = Int((vwordlen * Rnd) + 1)
        vwordnew = vwordnew & Mid$(vword, vpos, 1)
        vword = Left(vword, vpos - 1) & Right(vword, vwordlen - vpos)
        vwordlen = Len(vword)
    Next
    vwordnew = vwordnew & " "
Next
Set BMRange = ActiveDocument.Bookmarks("dest").Range
BMRange.Text = vwordnew
ActiveDocument.Bookmarks.Add "dest", BMRange
End Sub

3)Sélectionne le texte que tu veux mélanger
4)lance la macro.

cordialement
3
??? ou les nombres
24 janv. 2010 à 13:08
Est ce possible avec des nombre sur microsof word 2003? si oui,pourier vous me l'expliquer(assez en détails)

merci d'avance,

<souligne>COORDIALEMENT.</souligne>
0