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:
- Mélangeur de lettres pour pseudo
- Mélangeur de volume - Guide
- Pseudo facebook - Guide
- Pseudo whatsapp - Accueil - Messagerie instantanée
- 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
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>