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
- Trouver une phrase avec des lettres dans le désordre - Forum Loisirs / Divertissements
- Dans la table des matières du document à télécharger, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
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>