Hi Bo,
Different PDFxxxx.dot files will be present as add-ins depending
on how recently Adobe was installed, so you can test for anything
starting the PDF (assuming you don't have any add-ins of your own
named like that):
Dim ai As AddIn, FoundIt As Boolean
For Each ai In AddIns
If Left(ai.Name, 3) = "PDF" Then
FoundIt = True
Exit For
End If
Next ai
If FoundIt = True Then
MsgBox ai.Name & " is installed."
Else
MsgBox "PDFMaker/PDFWriter add-in not found."
End If
--
Mark Tangard <
[email protected]>, Microsoft Word MVP
Please reply only to the newsgroup, not by private email.
Note well: MVPs do not work for Microsoft.
"Life is nothing if you're not obsessed." --John Waters