Batch conversion of Word>pdf

U

Uni Bull

Hi,

I have some problems with my Adobe Elements 7.05 - since it
apparently doesn't fully support Word 2007...
Hence I can't batch-convert a bunch of Word documents to pdf :-(

I know that there is a add-in for Word 2007 but it is still only doc by doc.

Do you know of any (free) utility that can do a batch conversion from
..doc>.pdf
 
G

Graham Mayor

All PDF conversion tools operate on a doc by doc basis. It is easy enough to
automate that process with a macro, but then if you couple that with free
PDF tools, you will have to respond to a prompt for each file, so you don't
gain a great deal. To lose the prompt you will almost certainly have to buy
a commercial PDF creation utility.

I have not used Adobe Elements, but if it has added a PDF 'printer' driver
to the list of available printers then that one *may* work without the
prompt. In that case you would need something like the following which will
(from Word 2007) print all the doc and docx files in a selected folder to
PDF using the driver at:
ActivePrinter = "Adobe PDF"
http://www.gmayor.com/installing_macro.htm


Sub PrintFolderContentsToPDF()
On Error GoTo err_FolderContents
Dim FirstLoop As Boolean
Dim DocList As String
Dim DocDir As String
Dim sPrinter As String
Dim fDialog As FileDialog
Dim i As Long

Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.Title = "Select Folder containing the documents to be inserted and
click OK"
.AllowMultiSelect = False
If .Show <> -1 Then
Exit Sub
End If
DocDir = CurDir & "\"
End With

If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
sPrinter = ActivePrinter
ActivePrinter = "Adobe PDF"
Application.ScreenUpdating = False
FirstLoop = True
If Left(DocDir, 1) = Chr(34) Then
DocDir = Mid(DocDir, 2, Len(DocDir) - 2)
End If
DocList = Dir$(DocDir & "*.doc?")
Do While DocList <> ""
Documents.Open DocList
ActiveDocument.PrintOut
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
DocList = Dir$()
FirstLoop = False
Loop
Application.ScreenUpdating = True
ActivePrinter = sPrinter
Exit Sub
err_FolderContents:
MsgBox Err.Description
Exit Sub
End Sub

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top