[Eloy]

A 2-column table merged with multiple records is filled in horizontally. Is
there any way that the table can be filled vertically? In other words, I
need the first column filled and then the second.
Thanks.
eloy

[Peter Jamieson]

See the following posting by Graham Mayor/Doug RObbins:

--
Peter Jamieson
http://tips.pjmsn.me.uk

------------------------------------------------------------------------------

There is no function that allows this - however, if your data source is a
Word table (if not make it so -
http://www.gmayor.com/convert_labels...mail_merge.htm ) you can use one
of fellow MVP Doug Robbins' handy macros to reorder the data source to
produce this effect:

Sub SortLabelData()
' Macro to assign numbers to data source so that it can be sorted to cause
'labels to print down columns
Dim Message, Title, Default, labelrows, labelcolumns, _
i As Integer, j As Integer, k As Integer
Message = "Enter the number of labels in a row" ' Set prompt.
Title = "Labels per Row" ' Set title.
Default = "3" ' Set default.
' Display message, title, and default value.
labelcolumns = InputBox(Message, Title, Default)
Message = "Enter the number of labels in a column" ' Set prompt.
Title = "Labels per column" ' Set title.
Default = "8" ' Set default.
labelrows = InputBox(Message, Title, Default)
With ActiveDocument.Tables(1)
..Columns.Add BeforeColumn:=ActiveDocument.Tables(1).Columns(1)
..Rows(1).Range.Cut
End With
k = 1
For i = 1 To ActiveDocument.Tables(1).Rows.Count - labelcolumns
For j = 1 To labelrows
ActiveDocument.Tables(1).Cell(i, 1).Range.InsertBefore _
k + (j - 1) * labelcolumns
i = i + 1
Next j
k = k + 1
i = i - 1
If k Mod labelcolumns = 1 Then k = k - labelcolumns + _
labelcolumns * labelrows
Next i
ActiveDocument.Tables(1).Sort FieldNumber:="Column 1"
ActiveDocument.Tables(1).Rows(1).Select
Selection.Paste
ActiveDocument.Tables(1).Columns(1).Delete
End Sub


http://www.gmayor.com/installing_macro.htm


--

Graham Mayor - Word MVP


My web site www.gmayor.com
Word MVP web site http://word.mvps.org


------------------------------------------------------------------------------



"Eloy" wrote in message
...
A 2-column table merged with multiple records is filled in horizontally.
Is
there any way that the table can be filled vertically? In other words, I
need the first column filled and then the second.
Thanks.
eloy