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
|
|||
|
|||
vertical column option??
I am merging data from Excel to Word using Avery 5160 labels in alpha order.
I need to change the column from horizontal to vertical order. Is this possible? How?? |
#2
|
|||
|
|||
Here's a macro that will allow you to sort a datasource that is in the form
of a Word table so that the records (in their original order will print down then across rather than across then down. You should be able to just copy and paste your Excel data into a Word document so that you have a table on which you can run the macro. ' 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 -- 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 "tracymoo" wrote in message ... I am merging data from Excel to Word using Avery 5160 labels in alpha order. I need to change the column from horizontal to vertical order. Is this possible? How?? |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Table Design | A. Williams | Database Design | 3 | April 29th, 2005 07:02 PM |
up to 7 functions? | ALex | Worksheet Functions | 10 | April 12th, 2005 06:42 PM |
unable to repair inobox | Sudheer Mumbai | General Discussion | 1 | February 20th, 2005 11:55 AM |
how do i freeze a vertical column & horizontal row in excel? | Lainey | General Discussion | 1 | February 3rd, 2005 04:06 PM |
How can I insert a vertical column break between data to create a. | Mark Wisdom | Worksheet Functions | 1 | November 23rd, 2004 04:10 AM |