Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
Merging excel to word labels
Whe merging my excel data list to my label file in word, is there a way to
have the file merge vertically rather than horizontally? |
#2
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
Merging excel to word labels
Here is a macro that will modify a data source that is in the form of a Word
table so that the labels will print down the columns rather than across the rows. If you copy and paste your Excel data into a Word document, then you can use this macro to do what you are after: ' Macro to assign numbers to data source so that it can be sorted to cause labels to print down columns Dim Message, Title, Default Dim labelrows As Long, labelcolumns As Long Dim i As Long, j As Long, k As Long 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, originally posted via msnews.microsoft.com "Anita" wrote in message ... Whe merging my excel data list to my label file in word, is there a way to have the file merge vertically rather than horizontally? |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Mail merging labels: labels not advancing per page | Mailmerge | |||
Merging from Excel, only get the first page of labels | Mailmerge | |||
Merging Labels from Excel | Microsoft Word Help | |||
Merging labels from excel starts second page with second record | Mailmerge | |||
Why isn't all my Excel data merging into my Word labels document? | Mailmerge |