Sometimes, you may need to convert word to PDF, for example, making a PDF resume for job application. There are many free ways to convert Word to PDF. I wrote an article about how to save a word document as PDF earlier. You may use either Word 2007 or Google Docs to convert word to PDF for FREE. However, this kind of method converts single word document to PDF file at one time. What to do if you have hundreds of words and need to convert to PDF at a short period. It is a tedious and time-consuming job to upload word one by one and wait for the conversion. Is there a fast way to have the job done? Yes, of course. Here I will give you a solution to convert hundreds of word documents to PDF files manually using codes.

Provided you have Word 2007, then the following macro will work with all documents in .doc or .docx format in a folder selected from the macro. Then the macro will repeat the conversion job for you automatically. The macro will throw an error if any of the documents are mail merge documents, but should work fine with documents that contain simply text and images.

Sub SaveAllAsPDF()
Dim strFileName As String
Dim strDocNam
Dim strPath As Stringe() As String
Dim oDoc As Document
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.Title = “Select folder and click OK”
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox “Cancelled By User”, , “Save all as PDF”
Exit Sub
End If
strPath = fDialog.SelectedItems.Item(1)
If Right(strPath, 1) <> “\” Then strPath = strPath + “\”
End With
If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
strFileName = Dir$(strPath & “*.doc”)
While Len(strFileName) <> 0
WordBasic.DisableAutoMacros 1
Set oDoc = Documents.Open(strPath & strFileName)
strDocName = Split(oDoc.FullName, “.”)
If ActiveDocument.SaveFormat = 0 Or _
ActiveDocument.SaveFormat = 12 Then
ActiveDocument.SaveAs _
FileName:=strDocName(0) & “.pdf”, _
FileFormat:=wdFormatPDF
End If
oDoc.Close SaveChanges:=wdDoNotSaveChanges
strFileName = Dir$()
Wend
WordBasic.DisableAutoMacros 0
End Sub

How to batch convert PDF to Word?
How to do the job vice verse? Someone may ask this question. However, this time, it is not easy to write a macro to convert hundreds of PDF to word manually. Converting PDF to word is much more difficult than converting word to PDF. You can try AnyBizSoft PDF to Word Converter 2.5 directly. The newest version conduct batch conversion of at least 200 PDF files at one time. It is enough for ordinary usage. The PDF to Word Converter also supports encrypted PDF files. Thus, you may copy text from a secured PDF file. The output quality is really good. All the content and formatting are persevered and editable. Then you may reuse the content to make a professional presentation or make some urgent modifications to PDF-format contract.