Microsoft Office Forums - View Single Post - How to Insert all merge fields into a blank document

gmayor · 09-02-2019, 01:12 AM

It is difficult to understand the point of this, but the following macro will work, provided you attach the datasource to the blank document:

Code:

Sub Macro1()
Dim i As Integer
Dim orng As Range
    With ActiveDocument.MailMerge.DataSource
        For i = 1 To .FieldNames.Count
            Set orng = ActiveDocument.Range
            orng.Collapse 0
            orng.Fields.Add orng, wdFieldMergeField, Chr(34) & .FieldNames(i), False
            Set orng = ActiveDocument.Range
            orng.Collapse 0
            orng.InsertParagraphAfter
        Next i
    End With
    Set orng = Nothing
End Sub