Excel Macro to create PDF files using Word template

[@alane3983]

I think this is the solution I am looking for. Very good content, even 4 years later.

[@HamzaMalik-dj3wu]

Exactly what I was looking for. Can't tell you how happy I am to have found this video!

[@sdasgupta18]

Very helpful. Simple and solid solution. Thank you very much!

[@xtremeExcel]

You are welcome😀

[@j.dasilva4567]

Very very good, used it already. Thank u very much.

[@michaelgonzalez3251]

This video is very helpful

[@xtremeExcel]

Thanks.. stay connected

[@FreeFrogWatching]

great video. This is close to what I am looking. I have a list in excel like this and Word mail merge. Do you know how to create a print button to print what row I select? or enter a row number to print?

[@Drivad2k10]

Thanks for the video - I'm getting a Run-Time Error when I hit 'Set wd = New Word.Application' - any idea why this could be?

[@aniketgad6786]

I am getting error in ".Replacment.Text = Cells(i, 1).Value", like Compile error: Method or data member not found

[@meherasees1790]

Can you please help how to make the for loop dynamic

[@sofiarumi4288]

Love the video! thank you! I seem to get stuck at wd.Selection.Find - giving this error: Object variable or with block variable not set. Please help!!!

[@sofiarumi4288]

Sub createPDFs() Dim wd As Word.Application Dim doc As Word.Document Set wd = New Word.Application wd.Visible = True For i = 2 To 7 Set doc = wd.Documents.Open("CC:\Users\sai\Documents\AP\xl to pdf\Template\Temp.docx") With wd.Selection.Find .Text = "" .Replacement.Text = Cells(i, 3).Value .Execute Replace:=wdReplaceAll End With doc.ExportAsFixedFormat OutputFileName:=ActiveWorkbook.Path & "/" & Cells(i, 1).Value & "_" & Cells(i, 2).Value & "_" & Cells(i, 4).Value & "_" & Cells(i, 3).Value & "_" & Cells(i, 5).Value & "_" & Cells(i, 6).Value & "_" & Cells(i, 7).Value & ".pdf", _ ExportFormat:=wdExportFormatPDF Application.DisplayAlerts = False doc.Close SaveChanges:=False wd.Quit Application.DisplayAlerts = True Next End Sub

[@intagoeng9532]

Thank you sir, this is very helpful! I have just one doubt- is it possibile to save pdf(s) by selecting a folder using the Application.FileDialog(msoFileDialogFolderPicker)? I'm trying with no success

[@sridharkrishnappanavanerth3388]

sir if the name column has first name and surname and i want pdf to be saved with only first name and unique id only, then what should i do.

[@xtremeExcel]

You can extract first name using string manipulation functions (left, right, mid, len, instr etc).

[@ignacioa3698]

You have webscraping for google chrome using Excel VBA? I tried using downloading Selenium but keep getting an error, I believe it may have been selenium download, google driver issues since I’ve read there’s issue with that? I’ve read Selenium has compatibility with Chrome old drivers? Even someone else in Github wrote a Selenium VBA code, and tried using that one, yet, didn’t work. dont know how to fix the issue. I’ve even completely uninstalled Chrome and installed Chrome again to begin from scratch, yet, kept getting error. If you can show the options using Selenium and how to download Selenium? And or if there are alternatives? Thx!

[@xtremeExcel]

SeleniumWrapper is no longer supported and has been replaced by SeleniumBasic: florentbr.github.io/SeleniumBasic/ However, I recommend to use java or python as programming language if you want to use selenium.

[@ignacioa3698]

@@xtremeExcel Thank youu. Yes, alternatively, I'm trying python w/Beautiful Soup to scrape data from an yahoo finan (a html page).

[@tengtaichuang5456]

May I know why there is a compile error "Next without For"?

[@j.dasilva4567]

cause u are ending a /while/ cicle using a /next/ instead of /wend/, or else u are using a /next/ having a previous /next/, or else u are closing a /for/ cicle u didnt start.

[@naive8547]

Thank you very much. I wrote the code but I think there's a lot of error. I wish I could've sent ss

[@xtremeExcel]

Please send if you need help😀

[@rashmidhanda4370]

Hi thanks for the nice video..I need to attach pdf copies to the word doc template and then use the mail merge to send out mass emails I m able to create the emails using mailmerge and list but unable to add PDFs can you plz help..

[@PrajyotNikhade]

Hello sir...I am getting extra space in pdf when middle name is blank. Is there any solution sir plz help

[@jainmohit09]

Hi I have a image in word and want to add different name on that image. So I add text box. But when I run the macro all pdf show same name. Pls help

[@tengtaichuang5456]

Hi Kamal, what if in my Word doc, there are more than one mail merge field, then how do I set the macro to include these fields to replace in every subsequent pdf?

[@khat_diveprivate2518]

I have the same question. I have up to 20 merge fields.

[@sarathysaru2104]

hi can you please guide to save with header and footer of the word, in the current above code header is not getting saved

[@xtremeExcel]

please send your file(having vba) to me.

[@subharamachandran6753]

Hi.. I jus copied ur code.. pdf is getting created.. however none of the fields are merged.. what am I missing here.. can you help me.. thanks in advance.

[@subharamachandran6753]

Find in vba is not recognizing the merge fields in the template and hence not replacing them. Please help to fix this

[@randy9833]

can u help me. (Office 2012) So i already follow ur step completely. no error but it wont create the PDF. can u help me? Thank you Sub createPDFs() Dim wd As Word.Application Dim doc As Word.Document Set wd = New Word.Application wd.Visible = True For i = 2 To 7 Set doc = wd.Documents.Open("D:\Folder Sampah\Surat CB\template.docx") With wd.Selection.Find .Text = "" .Replacement.Text = Cells(i, 1).Value .Execute Replace:=wdReplaceAll End With doc.ExportAsFixedFormat OutputFileName:=ActiveWorkbook.Path & "/" & Cells(i, 2).Value & "_" & Cells(i, 1).Value & ".pdf", _ ExportFormat:=wdExportFormatPDF Application.DisplayAlerts = False doc.Close SaveChanges:=False Application.DsplayAlerts = True Next wd.Quit End Sub

[@LOL-ho4rt]

Hi I pretty much copied your code exactly and got a compile error. can you please help?

[@LOL-ho4rt]

when I put Next wd.Quit End Sub it shows Compile error : Next without For and when I put Next wd.Quit End Sub It shows Compile error : Expected Function or variable Thanks,

[@xtremeExcel]

Can u share the complete code pls?

[@icamaril7]

Hi, word to PDF? Help me please

[@sudhaposa4216]

Sir, I need this coding file