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
??? ou les nombres - 24 janv. 2010 à 13:08
A voir également:
- Melangeur de lettres
- Mélangeur de volume - Guide
- Trouvez le nom du fichier de cette image. les 6 dernières lettres vous donnent le nom de cette loutre. comment s'appelle-t-elle ? - Forum Windows
- Mon clavier n'écrit plus les lettres ✓ - Forum Clavier
- Le fichier à télécharger contient une liste de chats. triez-la comme dans le tableau ci-dessous (attention, on ne voit que le début…). quel est le mot formé par les 8 dernières lettres de la colonne code ? - Forum Word
- Faire un coeur avec des lettres ✓ - Forum Logiciels
1 réponse
JvDo
Messages postés
1978
Date d'inscription
mercredi 27 juillet 2005
Statut
Membre
Dernière intervention
28 septembre 2020
858
4 sept. 2009 à 13:42
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 :
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
24 janv. 2010 à 13:08
merci d'avance,
<souligne>COORDIALEMENT.</souligne>