(macro) Word, ordena dos o mas párrafos
Con esta macro podemos seleccionar dos o más párrafos para ordenarlos alfabéticamente como una lista de nombres desordenados. La macro comprueba si hay documento activo con Documents.Count, comprueba si se ha seleccionado dos o más párrafos con Selection.Paragraphs.Count, ordena con Selection.Sort ...
Supongamos los nombres desordenados:
Sandra
Ezequiel
Ana
...
Si los párrafos los seleccionamos y ejecutamos la macro Sub ordenatexto(), aparecerán los párrafos ordenados, como se ve en la imagen. Dificultad baja...
Sub ordenatexto()
If Documents.Count > 0 Then
If Selection.Paragraphs.Count > 1 Then
Selection.Sort
Else
MsgBox ("Debe seleccionar dos o más párrafos...")
End If
Else
MsgBox ("Debe abrir algun documento...")
End If
End Sub
(macro) Word, ordena dos o mas párrafos