Melanger les lettres des mots Word
pangolino
Messages postés
20
Statut
Membre
-
??? ou les nombres -
??? 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
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
Configuration: Windows XP Firefox 3.5.2
1 réponse
-
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
