Sorting part of a table

Cosmo · #1 06-18-2014, 01:06 PM

I need to sort a table, but leave the first 2 rows out of the sort (the first row is a general header, the second is a column header)

The table's sort method appears to only allow excluding a single header row, so I am sorting using a selection:

Code:

Dim rng As Range
Dim ct As Integer
With tbl
    ct = .Rows.Count
    If (ct > 2) Then
        Set rng = .Rows(3).Range
        rng.End = .Rows(ct).Range.End
        rng.Select
        Call Selection.Sort(ExcludeHeader:=False, FieldNumber:=1, SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending) 
    End If
End With

Is this the best/only way to do this? I would prefer not using a selection, if that is possible.

macropod · #2 06-18-2014, 04:08 PM

This works for me:

Code:

Sub Demo()
Dim Rng As Range
With ActiveDocument.Tables(1)
  Set Rng = .Range
  With Rng
    .Start = .Rows(3).Range.Start
    .Sort
  End With
End With
End Sub

Cosmo · #3 06-19-2014, 10:40 AM

Quote:

Originally Posted by macropod

This works for me:

Code:

Sub Demo()
Dim Rng As Range
With ActiveDocument.Tables(1)
  Set Rng = .Range
  With Rng
    .Start = .Rows(3).Range.Start
    .Sort
  End With
End With
End Sub

Thanks, that looks good to me!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Sorting a Word table containing cross-references	mpdsal	Word Tables	5	02-13-2013 06:44 PM
Sorting Challenge	gbaker	Excel Programming	11	06-22-2012 09:39 AM
Sorting by certain criteria	randenius	Excel	2	06-11-2012 02:18 AM
Need help in aplhabetica sorting	brooklyn86	Word VBA	1	06-05-2012 11:43 AM
Show part codes only whose have Book qty bal.in Pivot table	PRADEEPB270	Excel	2	02-15-2012 04:09 AM