Microsoft Office Forums - View Single Post - [Solved] 5941 error message in macro used in merge

macropod · 01-18-2016, 07:54 PM

Actually, the code I posted should have been:

Code:

Sub MERGE_DEFAULT()
Dim Doc As Document
Set Doc = ActiveDocument
With Doc
  With .MailMerge
    .Destination = wdSendToNewDocument
    .SuppressBlankLines = True
    With .DataSource
      .FirstRecord = wdDefaultFirstRecord
      .LastRecord = wdDefaultLastRecord
    End With
    .Execute Pause:=False
  End With
  .Activate
End With
End Sub

As for getting one label per page, that's because someone has changed the merge type from label to letter. That can be fixed via the GUI or with:

Code:

Sub MERGE_DEFAULT()
Dim Doc As Document
Set Doc = ActiveDocument
With Doc
  With .MailMerge
    .MainDocumentType = wdMailingLabels
    .Destination = wdSendToNewDocument
    .SuppressBlankLines = True
    With .DataSource
      .FirstRecord = wdDefaultFirstRecord
      .LastRecord = wdDefaultLastRecord
    End With
    .Execute Pause:=False
  End With
  .Activate
End With
End Sub