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. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
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
|
|||
|
|||
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? |
Thread Tools | |
Display Modes | |
|
|