Twittear

(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