Merge DOWN then ACROSS

[Rene]

I have been trying for two days to merge 3 fields down, then across.
It is a phone directory. I have MS Word 2000. I have tried columns,
but only 1 record per page shows. I placed the fields in a table, but
it wants to sort ACROSS then DOWN. I have also tried the
catalog/directory setting, but again, I get only 1 record.


What is the easiest way to do this for a novice.


Am I making it harder then it needs to be?

 

[Doug Robbins - Word MVP]

Hi Rene,

Use a Directory or Catalog type mailmerge with the main document formatted
for three columns with just one set of mergefields in the lefthand column
arranged as you want them to appear. Then execute the merge to a new
document and you should get what you want.

If you want to print labels, you can run the following macro on the
datasource to sort it so that when you execute the merge it will appear as
you want:

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