Melanger les lettres des mots Word
pangolino
Messages postés
18
Date d'inscription
Statut
Membre
Dernière intervention
-
??? 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
A voir également:
- Mélangeur de lettres pour pseudo
- Melangeur de lettre - Meilleures réponses
- Mélangeur de mot pour pseudo - Meilleures réponses
- Mélangeur de volume - Guide
- Pseudo whatsapp - Accueil - Messagerie instantanée
- Pseudo facebook - Guide
- Retrouver son compte epic games avec son pseudo - Forum Jeux vidéo
- Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
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>