Microsoft Office Forums - View Single Post - [Solved] Mail Merge with Merged File Name in Footer

DM2 · 05-01-2019, 03:15 PM

Quote:

added a line of VBA code to the example

Paul,
I think you're talking about the below code, which I think is new under the heading "
Send Mailmerge Output to Individual Files"?

Code:

      With ActiveDocument
        'Add the name to the footer
        '.Sections(1).Footers(wdHeaderFooterPrimary).Range.InsertBefore StrName
        .SaveAs FileName:=StrFolder & StrName & ".docx", FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=False
        ' and/or:
        .SaveAs FileName:=StrFolder & StrName & ".pdf", FileFormat:=wdFormatPDF, AddToRecentFiles:=False
        .Close SaveChanges:=False
      End With