Home |
Search |
Today's Posts |
#1
![]() |
|||
|
|||
![]()
I created personalized wallet cards (using the Avery
Standard 3612, business card template in Word)pulling the information from an Excel spreadsheet.Example of sheet: Wallet Card #1 Wallet Card #2 Wallet Card #3 Wallet Card #4 Wallet Card #5 Wallet Card #6 Wallet Card #7 Wallet Card #8 I am using the "Insert Word Field", Next Record option in mail merge to move from record # one to record # 2 and so on. What I want to do now is print personalized information pulling from the same spreadsheet onto the back of these cards. The problem is when I flip the sheet over to print on the back of it, what should print on the back of card #2 prints onto the back of card #1 etc. Is there a way I can reverse the order (create a mirror image)? Thanks in advance. CJ |
#2
![]() |
|||
|
|||
![]()
You will need to re-arrange the order in the data source to achieve that.
The following macro does not do what you want, but may give you enough information to develop one that does ' 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 "CJ" wrote in message ... I created personalized wallet cards (using the Avery Standard 3612, business card template in Word)pulling the information from an Excel spreadsheet.Example of sheet: Wallet Card #1 Wallet Card #2 Wallet Card #3 Wallet Card #4 Wallet Card #5 Wallet Card #6 Wallet Card #7 Wallet Card #8 I am using the "Insert Word Field", Next Record option in mail merge to move from record # one to record # 2 and so on. What I want to do now is print personalized information pulling from the same spreadsheet onto the back of these cards. The problem is when I flip the sheet over to print on the back of it, what should print on the back of card #2 prints onto the back of card #1 etc. Is there a way I can reverse the order (create a mirror image)? Thanks in advance. CJ |
Reply |
Thread Tools | |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Controlling order of accessing form fields in a WORD form | Tables | |||
files/folders are out of order in Word | Microsoft Word Help | |||
how to get list in word in alphabet order | Microsoft Word Help | |||
How do I change the order of pages in Word? | Microsoft Word Help | |||
How do I organise my word pages in order to print a leaflet? | Page Layout |