Create individual pdf using mail merge in word from Excel<\/p>\n
Copy + Paste below code in word file and Press F5<\/p>\n
<\/p>\n
Sub Create_PDF_From_Mail_Merge()<\/span> Application.ScreenUpdating = False<\/span> Set fs = CreateObject(“Scripting.FileSystemObject”)<\/span> From = 1<\/span> Message = (Till – From) + 1<\/span> ActiveDocument.MailMerge.DataSource.ActiveRecord = From<\/span> ActiveDocument.ExportAsFixedFormat OutputFileName:=PDFPath, ExportFormat:= _<\/span> From = From + 1<\/span> MsgBox (Message & ” Pdf Files Saved In = ” & Folderpath)<\/span><\/p>\n End Sub<\/span><\/p>\n <\/p>\n <\/p>\n","protected":false},"excerpt":{"rendered":" Create individual pdf using mail merge in word from Excel Copy + Paste below code in word file and Press F5 Sub Create_PDF_From_Mail_Merge() ‘This vba code written by Akumar – 99Excel.com Application.ScreenUpdating = False Dim DocName As String, PDFPath, Folderpath, From, Till, Message, fs Folderpath = “C:\\99Excel.com – Folder” Set fs = CreateObject(“Scripting.FileSystemObject”) If fs.FolderExists(Folderpath) = False Then … Read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[],"tags":[],"class_list":["post-546","post","type-post","status-publish","format-standard","hentry"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/posts\/546","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/comments?post=546"}],"version-history":[{"count":2,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/posts\/546\/revisions"}],"predecessor-version":[{"id":877,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/posts\/546\/revisions\/877"}],"wp:attachment":[{"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/media?parent=546"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/categories?post=546"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/tags?post=546"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\n‘This vba code written by Akumar – 99Excel.com<\/span><\/p>\n
\n Dim DocName As String, PDFPath, Folderpath, From, Till, Message, fs<\/span>
\n Folderpath = “C:\\99Excel.com – Folder”<\/span><\/p>\n
\n If fs.FolderExists(Folderpath) = False Then<\/span>
\n fs.createfolder (Folderpath)<\/span>
\n Else: End If<\/span><\/p>\n
\nTill = 5<\/span><\/p>\n
\nWhile From <= Till<\/span><\/p>\n
\n DocName = ActiveDocument.Fields(4).Result<\/span>
\n PDFPath = Folderpath & “\\” & DocName & “.pdf”<\/span>
\n Massage = ((Till – From) + 1)<\/span><\/p>\n
\n wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _<\/span>
\n Item:=wdExportDocumentContent, IncludeDocProps:=True<\/span><\/p>\n
\nWend<\/span><\/p>\n