Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.tables
|
|||
|
|||
alphanumerical sorting in a word table
I'm trying to sort the following document in alphanumercal order going top to
bottom in alpha order from column A, B C... when i sort it is reading left to right |
#2
Posted to microsoft.public.word.tables
|
|||
|
|||
alphanumerical sorting in a word table
If you are using non-table Columns, it should sort properly. But if you have
three columns in a Table, it will not. You would have to move columns B and C to below the end of Column A before you could make a proper sort. After doing so, you could replace them in B and C. "Tracylyn" wrote in message ... I'm trying to sort the following document in alphanumercal order going top to bottom in alpha order from column A, B C... when i sort it is reading left to right |
#3
Posted to microsoft.public.word.tables
|
|||
|
|||
alphanumerical sorting in a word table
Let me try it....
"Richard O. Neville" wrote: If you are using non-table Columns, it should sort properly. But if you have three columns in a Table, it will not. You would have to move columns B and C to below the end of Column A before you could make a proper sort. After doing so, you could replace them in B and C. "Tracylyn" wrote in message ... I'm trying to sort the following document in alphanumercal order going top to bottom in alpha order from column A, B C... when i sort it is reading left to right |
#4
Posted to microsoft.public.word.tables
|
|||
|
|||
alphanumerical sorting in a word table
Select the table you want sorted and try running this macro:
Option Explicit Sub UpDownTableSort() Dim i As Long Dim j As Long Dim k As Long Dim oCell As Cell Dim oTmpTable As Table Dim oRng As Word.Range i = Selection.Tables(1).Range.Cells.Count 'Insert a temporary 1 column/multi-row table at the end of the document With ActiveDocument.Paragraphs.Last .Range.Paragraphs.Add .Range.Tables.Add .Range, i, 1 End With 'Define this table Set oTmpTable = ActiveDocument.Tables(ActiveDocument.Range.Tables. Count) 'Fill oTmpTable with contents of table to be sorted For Each oCell In Selection.Tables(1).Range.Cells With oTmpTable .Cell(i, 1).Range.Text = Left(oCell.Range.Text, Len(oCell.Range.Text) - 2) End With i = i - 1 Next 'Sort oTmpTable.Sort 'Redefine selected table contents based on sort With Selection.Tables(1) For i = 1 To .Range.Columns.Count For j = 1 To .Range.Rows.Count k = k + 1 Set oRng = oTmpTable.Cell(k, 1).Range .Cell(j, i).Range.Text = Left(oRng.Text, Len(oRng.Text) - 2) Next j Next i End With 'Clean up. oTmpTable.Delete Set oRng = Nothing Set oTmpTable = Nothing End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tracylyn wrote: I'm trying to sort the following document in alphanumercal order going top to bottom in alpha order from column A, B C... when i sort it is reading left to right |
#5
Posted to microsoft.public.word.tables
|
|||
|
|||
alphanumerical sorting in a word table
Thanks, but how to you run a macro
"Greg Maxey" wrote: Select the table you want sorted and try running this macro: Option Explicit Sub UpDownTableSort() Dim i As Long Dim j As Long Dim k As Long Dim oCell As Cell Dim oTmpTable As Table Dim oRng As Word.Range i = Selection.Tables(1).Range.Cells.Count 'Insert a temporary 1 column/multi-row table at the end of the document With ActiveDocument.Paragraphs.Last .Range.Paragraphs.Add .Range.Tables.Add .Range, i, 1 End With 'Define this table Set oTmpTable = ActiveDocument.Tables(ActiveDocument.Range.Tables. Count) 'Fill oTmpTable with contents of table to be sorted For Each oCell In Selection.Tables(1).Range.Cells With oTmpTable .Cell(i, 1).Range.Text = Left(oCell.Range.Text, Len(oCell.Range.Text) - 2) End With i = i - 1 Next 'Sort oTmpTable.Sort 'Redefine selected table contents based on sort With Selection.Tables(1) For i = 1 To .Range.Columns.Count For j = 1 To .Range.Rows.Count k = k + 1 Set oRng = oTmpTable.Cell(k, 1).Range .Cell(j, i).Range.Text = Left(oRng.Text, Len(oRng.Text) - 2) Next j Next i End With 'Clean up. oTmpTable.Delete Set oRng = Nothing Set oTmpTable = Nothing End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tracylyn wrote: I'm trying to sort the following document in alphanumercal order going top to bottom in alpha order from column A, B C... when i sort it is reading left to right |
#6
Posted to microsoft.public.word.tables
|
|||
|
|||
alphanumerical sorting in a word table
See http://www.gmayor.com/installing_macro.htm
-- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "Tracylyn" wrote in message ... Thanks, but how to you run a macro "Greg Maxey" wrote: Select the table you want sorted and try running this macro: Option Explicit Sub UpDownTableSort() Dim i As Long Dim j As Long Dim k As Long Dim oCell As Cell Dim oTmpTable As Table Dim oRng As Word.Range i = Selection.Tables(1).Range.Cells.Count 'Insert a temporary 1 column/multi-row table at the end of the document With ActiveDocument.Paragraphs.Last .Range.Paragraphs.Add .Range.Tables.Add .Range, i, 1 End With 'Define this table Set oTmpTable = ActiveDocument.Tables(ActiveDocument.Range.Tables. Count) 'Fill oTmpTable with contents of table to be sorted For Each oCell In Selection.Tables(1).Range.Cells With oTmpTable .Cell(i, 1).Range.Text = Left(oCell.Range.Text, Len(oCell.Range.Text) - 2) End With i = i - 1 Next 'Sort oTmpTable.Sort 'Redefine selected table contents based on sort With Selection.Tables(1) For i = 1 To .Range.Columns.Count For j = 1 To .Range.Rows.Count k = k + 1 Set oRng = oTmpTable.Cell(k, 1).Range .Cell(j, i).Range.Text = Left(oRng.Text, Len(oRng.Text) - 2) Next j Next i End With 'Clean up. oTmpTable.Delete Set oRng = Nothing Set oTmpTable = Nothing End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tracylyn wrote: I'm trying to sort the following document in alphanumercal order going top to bottom in alpha order from column A, B C... when i sort it is reading left to right |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Word 97 in Windows XP to maintain formatting | Microsoft Word Help | |||
In Word, how do I surpress headers and footers on page 2 | Microsoft Word Help | |||
apply a template to existing documents | Page Layout | |||
is word perfect compatible with office word? | Microsoft Word Help | |||
Envelope Address | New Users |