G
Guillermo
This script worked perfectly in WORD-97 but not in WORD 2003
I am running it from a VB macro with
WORD.Documents.Open FileName:="U:\Attachmate\Macros\Number change\pcl.dot"
WORD.Run MacroName:="chqrp"
Sub chqrp()
'
' chqrp Macro
' Macro 29/07/04 by Guillermo
'
With ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
End Sub
I haven't the experience and am not given the time to learn this properly,
so if anyboy could help I would be really greatful.
I am running it from a VB macro with
WORD.Documents.Open FileName:="U:\Attachmate\Macros\Number change\pcl.dot"
WORD.Run MacroName:="chqrp"
Sub chqrp()
'
' chqrp Macro
' Macro 29/07/04 by Guillermo
'
With ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
End Sub
I haven't the experience and am not given the time to learn this properly,
so if anyboy could help I would be really greatful.