5941 error message in macro used in merge

macropod · #7 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Error 5941 when running my macro to auto populate fields throughout the word doc	VBAnovice1	Word VBA	2	05-26-2015 01:35 AM
Help Please: New VBA user trying to use a macro to split Mail Merge documents. Two Run-Time Error	zipit189	Word VBA	7	03-18-2015 01:13 PM
Run-time error 5941 when deleting a row from a table	jpb103	Word VBA	1	05-26-2014 07:08 AM
Mail Merge error message	rec	Mail Merge	1	04-29-2011 10:30 PM
Error Message in Mail Merge	A Bhavani	Mail Merge	0	11-26-2008 12:08 PM