C
Claude
Hi,
Could someone please tell me if it is possible to include a mail merg
field in the "Address:=" part of this code located at the bottom?
guess what I'm trying to do is include my own text & mail merge fiel
in the label?
I was hoping the the following could somehow be inserted?
ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
"Distribution"
ActiveDocument.MailMerge.MainDocumentType = wdMailingLabels
ActiveDocument.MailMerge.OpenDataSource Name:= _
"S:\mag-hr\Payroll\Payroll@Magill\Reporting\Group Distributio
List Weekly.xls" _
, ConfirmConversions:=False, ReadOnly:=False
LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:=""
PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:=""
Revert:=False, _
Format:=wdOpenFormatAuto, Connection:="Entire Spreadsheet"
SQLStatement _
:="", SQLStatement1:=""
Application.MailingLabel.DefaultPrintBarCode = False
Application.MailingLabel.CreateNewDocument Name:="L7163"
*Address:= _
"Weekly Payslips - Private & Confidential" & Chr(13) & Chr(13
_
& Chr(13) & "Weekly Payslips - Private & Confidential"
Chr(13), _* AutoText:="", LaserTray:=wdPrinterManualFeed
Not having much luck!
Thanks
Claud
Could someone please tell me if it is possible to include a mail merg
field in the "Address:=" part of this code located at the bottom?
guess what I'm trying to do is include my own text & mail merge fiel
in the label?
I was hoping the the following could somehow be inserted?
ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
"Distribution"
ActiveDocument.MailMerge.MainDocumentType = wdMailingLabels
ActiveDocument.MailMerge.OpenDataSource Name:= _
"S:\mag-hr\Payroll\Payroll@Magill\Reporting\Group Distributio
List Weekly.xls" _
, ConfirmConversions:=False, ReadOnly:=False
LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:=""
PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:=""
Revert:=False, _
Format:=wdOpenFormatAuto, Connection:="Entire Spreadsheet"
SQLStatement _
:="", SQLStatement1:=""
Application.MailingLabel.DefaultPrintBarCode = False
Application.MailingLabel.CreateNewDocument Name:="L7163"
*Address:= _
"Weekly Payslips - Private & Confidential" & Chr(13) & Chr(13
_
& Chr(13) & "Weekly Payslips - Private & Confidential"
Chr(13), _* AutoText:="", LaserTray:=wdPrinterManualFeed
Not having much luck!
Thanks
Claud