[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

--
Regards,

Uni Bull
Denmark

[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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Uni Bull wrote:
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