A Microsoft Office (Excel, Word) forum. OfficeFrustration

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.

Go Back   Home » OfficeFrustration forum » Microsoft Word » Mailmerge
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Duplexing labels.



 
 
Thread Tools Display Modes
  #1  
Old April 30th, 2004, 03:57 AM
joe hagerty
external usenet poster
 
Posts: n/a
Default 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  
Old April 30th, 2004, 06:36 AM
Doug Robbins - Word MVP
external usenet poster
 
Posts: n/a
Default 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

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 10:09 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.