Microsoft Office Forums - View Single Post - Arrange shortest to longest sentence in Word

macropod · 11-18-2015, 01:22 AM

You could run a macro like the following against a selection of paragraphs:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim Tbl As Table, i As Long
With Selection
  Set Tbl = .Range.ConvertToTable
  With Tbl
    .Columns.Add
    For i = 1 To .Rows.Count
      .Cell(i, 2).Range.Text = Len(.Cell(i, 1).Range.Text)
    Next
    .Sort ExcludeHeader:=False, FieldNumber:=2
    .Columns(2).Delete
    .ConvertToText
  End With
End With
Application.ScreenUpdating = True
End Sub