Melanger les lettres des mots Word

pangolino Messages postés 18 Date d'inscription   Statut Membre Dernière intervention   -  
 ??? ou les nombres -
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   Statut Membre Dernière intervention   859
 
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
 
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