label order on the page

[labelprinter]

When creating a mail merge in Word 2007, is there any way to have the labels
print in columns(down and over), not in rows (over, then down)? Example, if
my Labels were 3 rows of 10, I would like them to print the first column of
10, then move to the right (next column of 10), then to the right again. I
know that option is available in Access, haven't found it in Word yet. Thanks
for any help!!!

 

[Graham Mayor]

The simple answer is no. Word always treats tables (labels are tables)
across the row then down. If you want to merge down then across you would
have to reorganise your data source to accommodate the revised layout.
Fellow MVP Doug Robbins has produced a macro that will do this for a data
source that is a Word table -

Sub SortData()
' 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

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[labelprinter]

Thank you for your answer and suggestion. Sounds like it is easier to leave
things the way they are. Appreciate you taking time to write.

 

[ap1971]

I have copied the macro script into my data file. I am getting a compile
error at the Row that begins "..Colums" Also no message prompts are opening
either.

If my table is a set table with only two colums but many rows, should I
change something in the script?

 

[Graham Mayor]

There is no row that should begin with
...columns
it should be
..columns
The following line has also acquired an unwanted leading '.'
Recopy the macro from the original message.
The macro will not run if you have a compile error.
Set the number of rows and columns as the default numbers where indicated.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>