Reply
 
Thread Tools Display Modes
  #1   Report Post  
CJ
 
Posts: n/a
Default Reversing <> Order

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   Report Post  
Doug Robbins - Word MVP
 
Posts: n/a
Default

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

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Controlling order of accessing form fields in a WORD form Tom Tables 1 January 6th 05 06:32 PM
files/folders are out of order in Word rachunc Microsoft Word Help 1 December 16th 04 08:35 PM
how to get list in word in alphabet order babbosam Microsoft Word Help 1 December 15th 04 07:36 AM
How do I change the order of pages in Word? Antonio Microsoft Word Help 2 December 14th 04 09:55 PM
How do I organise my word pages in order to print a leaflet? Teris Page Layout 1 November 24th 04 03:13 PM


All times are GMT +1. The time now is 06:41 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"