Word to PDF Converter
Templates VBA

Automation: Word to PDF Converter

In the previous article you have learnt how to Excel to PDF converter using VBA. In this article you will learn how to convert multiple Word files into PDF file using VBA. This is quite useful and easy macro. We have used File System Object method here.

To use the file system object you need to add “Microsoft Scripting Runtime” Reference. To add this Reference go to Visual basic editor > Tools > References > Microsoft Scripting Runtime

To use the Word application you need to add “Microsoft Word 15.0 Object Library” Reference. You may get some different number is place of 15.0 in MS Word reference name. It is depend on the version of Microsoft Office. We are using Microsoft Office 2013.

To add this Reference go to Visual basic editor > Tools > References > Microsoft Word 15.0 Object Library

Add References
Add References

 We have taken the two path on excel worksheet (on Sheet1)

  • Word Folder Path: On cell E13 we have taken Excel Folder Path wherein multiple excel files are available.
  • PDF Folder Path: On cell E14 we have taken PDF Folder Path wherein PDF file will stored after the conversion.

Below is the VBA code to convert Excel to PDF

Option Explicit

Sub Word_To_PDF()

Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")

Dim fso As New FileSystemObject
Dim fo As Folder
Dim f As File

Dim wb As Workbook
Dim n As Integer

Dim wordapp As New Word.Application
Dim worddoc As Word.Document

Set fo = fso.GetFolder(sh.Range("E13").Value)

For Each f In fo.Files
n = n + 1
Application.StatusBar = "Processing..." & n & "/" & fo.Files.Count

Set worddoc = wordapp.Documents.Open(f.Path)

worddoc.ExportAsFixedFormat sh.Range("E14").Value & Application.PathSeparator & VBA.Replace(f.Name, ".docx", ".pdf"), wdExportFormatPDF
worddoc.Close False
Next

Application.StatusBar = ""
MsgBox "Process Completed"

End Sub

Click here to download this Excel workbook.

Watch the step by step video tutorial:

 

PK
My Name is PK. I am founder of PK-AnExcelExpert.com. I have more than 10 years of experience in Data Visualization, Excel Automation and dashboard creation. Excel is my passion and I like to do always something innovative in Excel and share it with other people.
https://www.pk-anexcelexpert.com

Leave a Reply

Your email address will not be published. Required fields are marked *