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
|
|||
|
|||
Duplexing labels.
I am in need of doing a mail merge unto business cards. Unfortunately they
also need to be double sided... The Mail merge is working fine for the front, but for the back, I need to reverse the two columns so that they are printed correctly. Can anyone give me any suggestions on how to configure the merge fields to make that happen? Thanks Joe Hagerty Tentmakers Missionary Fellowship |
#2
|
|||
|
|||
Duplexing labels.
Hi Joe,
If the datasource is a Word document, if you run the following macro on that document, it will sort it so that the two columns would be reversed. Dim Message, Title, Default, labelrows, i As Integer, j As Integer, num As Range ' Display message, title, and default value. 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 For i = 1 To ActiveDocument.Tables(1).Rows.Count Set num = ActiveDocument.Tables(1).Cell(i, 2).Range num.End = num.End - 1 j = Val(num) Select Case i Mod 10 Case 1 To 5 ActiveDocument.Tables(1).Cell(i, 1).Range.InsertBefore j + labelrows Case 6 To 9 ActiveDocument.Tables(1).Cell(i, 1).Range.InsertBefore j - labelrows Case Else ActiveDocument.Tables(1).Cell(i, 1).Range.InsertBefore j - labelrows End Select MsgBox "OK" Next i ActiveDocument.Tables(1).Sort FieldNumber:="Column 1" ActiveDocument.Tables(1).Rows(1).Select Selection.Paste ActiveDocument.Tables(1).Columns(1).Delete If the datasource is not a Word document, use a Catalog or DIrectory type mailmerge to create a document containing a table with the records in it, then insert a row at the top of the table for the field names and then run the macro. -- 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 "joe hagerty" wrote in message ... I am in need of doing a mail merge unto business cards. Unfortunately they also need to be double sided... The Mail merge is working fine for the front, but for the back, I need to reverse the two columns so that they are printed correctly. Can anyone give me any suggestions on how to configure the merge fields to make that happen? Thanks Joe Hagerty Tentmakers Missionary Fellowship |
Thread Tools | |
Display Modes | |
|
|