Manually Convert A Batch Of Word To Pdf Files

By Author: Kevin Peterson
Total Articles: 2
Comment this article

The past few years have seen a sudden increase in the demand for the PDF files. You must be wandering as to why there is this increasing demand of PDF files? Well, the increasing demand of PDF files is due to the fact that the PDF files are much more robust and secure to be transferred and shared across a network.

With this increasing demand of PDF files, more and more users now want to convert their Word documents or documents in other formats to PDF documents.
You can convert Word to PDF files in the following two ways:

Manually

Automatically using professional and efficient tools

It is absolutely simple to convert a single Word document to PDF file. By using Word 2007 or Google Docs, you can easily and almost effortlessly convert a single Word document to PDF file.
However, in case you want to convert multiple Word files to PDF files, you cannot achieve this by using simple options of Word 2007 or Google Docs.

Though you cannot convert ‘n’ number of Word documents to PDF files using simple options of Word 2007 or Google Docs, it is possible for you to convert multiple ...
... Word to PDF files manually.
You just need Word 2007 and a code snippet, actually a macro to convert ‘n’ number of Word documents (in .DOC and .DOCX formats) to the PDF files.

However, using the macros has a limitation and that is the macro throws an error in case the Word documents are mail merge documents, but it works fine in case the Word document contains simple text and images.

The macro to manually convert ‘n’ number of Word to PDF files is as follows:

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

Though using the aforementioned macro, it is possible to convert multiple Word files to PDF files, a better way out to convert multiple Word documents (both .DOC and .DOCX formats) to PDF files is by using a professional, comprehensive, and efficient DOC to PDF online converter tool.

Numerous DOC to PDF online converter tools are available in the market. Make a cautious effort to decide upon the DOC to PDF online converter tool.

Kernel for Word to PDF is a simple yet effective DOC to PDF online converter tool that makes you at ease as it successfully and effectively converts multiple Word to PDF files.
Feel at ease and just relax with the Kernel for Word to PDF tool to convert ‘n’ number of Word to PDF files.