Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #3   Report Post  
Doug Robbins
 
Posts: n/a
Default

Best thing is to use Access if you have it. It has a label wizard and gives
you that option for the order of the labels.

Here's a macro that can be used to sort a Word data source to achieve that
effect. You can use a directory type mailmerge to get the data into a word
table.

' 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 = "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
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


--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP
"jageorge" wrote in message
...
I am trying to create labels in Word 2003 from an Excel sheet. I want to
arrange the labels vertically on the label sheet, instead of the default
horizontal. Basically, instead of having the first record appear on the
top
left label, and the next records following to the right of that label to
the
right edge of the page, then down to the next row, etc.; I want the next
records to follow below the first record, continue to the bottom of the
column, and then resume at the top of the second column. Is this possible?
If
so, how do I set up the merge to make it work this way?



 
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Mail merge only creates first label when doing edit individual lab Scott H Mailmerge 1 January 19th 05 11:59 AM
custom label page size in mail merge (on a mac) Beee Mailmerge 1 January 7th 05 05:56 AM
Mail Merge Label layout. Brian Ellis Mailmerge 3 December 9th 04 05:32 PM
mail merge only prints one label per page Golpher Mailmerge 1 December 9th 04 12:47 AM
How do you set up a label mail merge with Excel as source in 2003. Psychic Mom Mailmerge 1 November 27th 04 03:03 PM


All times are GMT +1. The time now is 12:36 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"