Hi Joe,
If the datasource is a Word document, if you run the following macro on that
document, it will sort it so that the two columns would be reversed.
Dim Message, Title, Default, labelrows, i As Integer, j As Integer, num As
Range
' Display message, title, and default value.
Message = "Enter the number of labels in a column" ' Set prompt.
Title = "Labels per column" ' Set title.
Default = "5" ' Set default.
labelrows = InputBox(Message, Title, Default)
ActiveDocument.Tables(1).Columns.Add
BeforeColumn:=ActiveDocument.Tables(1).Columns(1)
ActiveDocument.Tables(1).Rows(1).Range.Cut
For i = 1 To ActiveDocument.Tables(1).Rows.Count
Set num = ActiveDocument.Tables(1).Cell(i, 2).Range
num.End = num.End - 1
j = Val(num)
Select Case i Mod 10
Case 1 To 5
ActiveDocument.Tables(1).Cell(i, 1).Range.InsertBefore j +
labelrows
Case 6 To 9
ActiveDocument.Tables(1).Cell(i, 1).Range.InsertBefore j -
labelrows
Case Else
ActiveDocument.Tables(1).Cell(i, 1).Range.InsertBefore j -
labelrows
End Select
MsgBox "OK"
Next i
ActiveDocument.Tables(1).Sort FieldNumber:="Column 1"
ActiveDocument.Tables(1).Rows(1).Select
Selection.Paste
ActiveDocument.Tables(1).Columns(1).Delete
If the datasource is not a Word document, use a Catalog or DIrectory type
mailmerge to create a document containing a table with the records in it,
then insert a row at the top of the table for the field names and then run
the macro.
--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP
