Microsoft Office Forums - View Single Post - [Solved] Mail Merge

gmayor · 10-31-2020, 09:21 PM

It seems that all the labels would be the same? That being the case you can simply duplicate the first label on the rest and print as many copies as you need. A macro can simplify that e.g.

Code:

Sub DuplicateLabels()
Dim oTable As Table
Dim oField As Field
    With ActiveDocument
        .MailMerge.MainDocumentType = _
        wdMailingLabels
        WordBasic.MailMergePropagateLabel
        For Each oTable In .Tables
            For Each oField In .Fields
                If oField.Type = wdFieldNext Then
                    oField.Delete
                End If
            Next oField
        Next oTable
        .MailMerge.MainDocumentType = _
        wdNotAMergeDocument
    End With
lbl_Exit:
    Exit Sub
End Sub