Application.COMAddIns PDFMAKER return nothing
Hi,
I try to convert document word to pdf using PDFMaker. So, I installed Adobe acrobat XI Pro.
When I execute below code, Application.COMAddIns.Description gives the descritpion of the add in but it didn't return the objet, nothing is returned
Sub test()
Dim pmkr As AdobePDFMakerForOffice.PDFMaker
Dim stng As AdobePDFMakerForOffice.ISettings
On Error GoTo ErrorHandler
For Each a In Application.COMAddIns
If InStr(UCase(a.Description), "PDFMAKER") > 0 Then
Set pmkr = a.Object
Exit For
End If
Next
If pmkr Is Nothing Then
MsgBox "Can not find PDFMaker add-in", vbOKOnly, ""
Exit Sub
End If
pmkr.GetCurrentConversionSettings stng
ErrorHandler:
MsgBox "Erreur no " & Err.Number & " " & Err.Description
End Sub
Could you help please.
Saad
|