Arrange shortest to longest sentence in Word

macropod · #4 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Auto scheduling issue - longest task first?	Project_64	Project	3	01-25-2016 01:14 PM
Delete does not bring second sentence closer to first sentence	Andoheb	Word	29	07-03-2014 01:48 PM
First word of sentence IF and then	awolf	Word VBA	7	03-16-2014 02:40 PM
Undo Arrange All in Word	nineball	Word	1	10-11-2013 12:36 PM
I want to lock a sentence in Word	smorkette	Word	1	02-06-2010 12:57 AM