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
- Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
- Pseudo invisible ✓ - Forum Windows
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>