Good Pdf utility

[M_C]

I am currently using pdf995's omniformat to batch process txt to pdf's. Does
anyone have a recommendation for an alternative?

 

[tomcam]

I've had great luck with Microsoft's own:

Install the Word Save as PDF or XPS option
http://www.microsoft.com/downloads/...11-3E7E-4AE6-B059-A2E79ED87041&displaylang=en

 

[M_C]

But does it work as a batch utility? I need to convert a directory of files
into pdf's, they are text files created by another program.

Mike

 

[Graham Mayor]

Provided you have Word 2007, then yes, you can batch process files with the
Word PDF creation tool.

If that tool is installed, the following macro will work with all documents
in doc or docx format in a folder selected from the macro. 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. If the documents are
plain text with a TXT extension then the macro will require some changes,
but we'll cross that bridge if required.

Sub SaveAllAsPDF()
Dim strFileName As String
Dim strDocName() As String
Dim strPath 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


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


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

 

[Terry Farrell]

Note that if you have Word 2007 and it is not installed, the PDF add-on is a
free download from Microsoft Office support site.

 

[M_C]

Thank-you! I will look into it.

Provided you have Word 2007, then yes, you can batch process files with the
Word PDF creation tool.

If that tool is installed, the following macro will work with all documents
in doc or docx format in a folder selected from the macro. 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. If the documents are
plain text with a TXT extension then the macro will require some changes,
but we'll cross that bridge if required.

Sub SaveAllAsPDF()
Dim strFileName As String
Dim strDocName() As String
Dim strPath 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


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


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

 

[Sheila W]

For someone who don't have word 2007, you may try googledocs. It is good and
easy to use too.

Although cannot for batch conversion.