Mezclar las letras de las palabras Word
pangolino
Mensajes publicados
20
Estado
Miembro
-
??? ou les nombres -
??? ou les nombres -
Hola,
Me gustaría saber si existe una manera de mezclar las letras de cada palabra en Word, del estilo
"Bonjour tout le monde" se convertiría en "rboounj utot el edonm"
Gracias por su ayuda
Me gustaría saber si existe una manera de mezclar las letras de cada palabra en Word, del estilo
"Bonjour tout le monde" se convertiría en "rboounj utot el edonm"
Gracias por su ayuda
Configuración: Windows XP Firefox 3.5.2
1 respuesta
-
Hola,
sí, con un poco de código.
1) Coloca un marcador "dest" en el lugar donde deseas el resultado.
2) Mete este código en un módulo :Sub mezcla() 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) Selecciona el texto que deseas mezclar
4) Ejecuta la macro.
Atentamente.