Arrange shortest to longest sentence in Word

omar · #1 11-18-2015, 01:40 AM

Good grief, thanks a lot Paul!! Are all the experts playing in this forum?
I have a minor problem, when I run the macro, the results are a little bit out... what do you think I can do to fix this? Results below... omar

BEFORE
alpha bravo charlie

delta echo foxtrot
golf hotel india
juliet kilo lima
mike november oscar
papa quebec romeo
sierra tango uniform
victor whiskey xray
yankee zulu

AFTER
yankee zulu
golf hotel india
juliet kilo lima
papa quebec romeo
delta echo foxtrot
alpha bravo charlie
mike november oscar
victor whiskey xray
sierra tango uniform

Quote:

Originally Posted by macropod

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