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
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
