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
A voir également:
- Mélangeur de lettres pour pseudo
- Melangeur de mots - Meilleures réponses
- Melangeur de lettre - Meilleures réponses
- Mélangeur de volume - Guide
- Pseudo whatsapp - Accueil - Messagerie instantanée
- Pseudo facebook - Guide
- Pseudo WhatsApp : vous pourrez utiliser votre identifiant Instagram ou Facebook - Guide
- Lettres avec accents - Guide
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 :
3)Sélectionne le texte que tu veux mélanger
4)lance la macro.
cordialement
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
merci d'avance,
<souligne>COORDIALEMENT.</souligne>