A Microsoft Word forum. Microsoft Office Word Forum - WordBanter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » Microsoft Office Word Forum - WordBanter forum » Microsoft Word Newsgroups » Mailmerge
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

How do I alphabetize labels from top to bottom?



 
 
Thread Tools Display Modes
  #1  
Old June 1st 06, 07:34 PM posted to microsoft.public.word.mailmerge.fields
external usenet poster
 
Posts: n/a
Default How do I alphabetize labels from top to bottom?

I have created a mail merge into word labels from an existing excel
spreadsheet. The labels are alphabetized by rows...from left to right. How do
I get them alphabetized from top to bottom?
Ads
  #2  
Old June 1st 06, 09:24 PM posted to microsoft.public.word.mailmerge.fields
external usenet poster
 
Posts: n/a
Default How do I alphabetize labels from top to bottom?

A couple of ways to do this. One is to modify the mailmerge main document
to a catalog or directory type document with as many columns as your label
sheets with the columns the same width as the labels and in the first column
insert a one cell table with the row height fixed to match the height of the
labels and the page top and bottom margins set to match those of the label
sheet. When you execute this merge to a new document, that document will
contain one row in the table for each record in the data source, with the
data arranged in the order that you want. If you got the mailmerge main
document set up right, you should then be able to print that document onto
your label stock

The other way is to use the following macro on the data source


' Macro created by Doug Robbins 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

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"hapa" wrote in message
...
I have created a mail merge into word labels from an existing excel
spreadsheet. The labels are alphabetized by rows...from left to right. How
do
I get them alphabetized from top to bottom?



 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Mail merge to continuous labels skips labels between pages Devon Stout Mailmerge 8 July 10th 06 07:11 PM
How do I eliminate blank labels and alphabetize the remaining? Sandi Microsoft Word Help 1 May 12th 06 03:35 PM
How do I alphabetize labels? ktp1382 Microsoft Word Help 2 December 21st 05 11:07 PM
Distance bottom edge of the page to bottom edge footer - not accep Prince - Royal Realm Page Layout 3 October 6th 05 06:05 AM
Word 97 Labels templates dispay records in bottom margin Judy Mailmerge 7 September 14th 05 07:01 PM


All times are GMT +1. The time now is 09:55 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Copyright 2004-2022 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.