Anónimo
Transformar PDF en TIF en Access
Tengo el siguiente inconveniente, necesito transformar archivos PDF en formato TIF, los PDF los tengo alojado en mi disco y en un campo de una tabla tengo el hipevinculo.
1 respuesta
Respuesta de Jacinto Trillo Jareño
1
Partiendo de que nunca lo he hecho, ni tan siquiera probado, si que tenía un enlace al respecto, que es éste. Si es válido para ti perfecto.
https://www.pcreview.co.uk/threads/converting-a-pdf-file-to-tiff-programatically.2405244/
Public Function SavePDFAsTIFF(Optional strPDFFileName As String)
Dim objAcro As Object
Dim objAvDoc As Object
Dim objPDdoc As Object
Dim objJso As Object
Set objAcro = CreateObject("AcroExch.App")
If Len(strPDFFileName) < 1 Then
'Reference the first PDF doc currently open
Set objAvDoc = objAcro.GetAvDoc(0)
Else
Set objAvDoc = CreateObject("AcroExch.AVDoc")
objAvDoc.Open strPDFFileName, "DocToConvert"
End If
Set objPDdoc = objAvDoc.GetPDDoc
Set objJso = objPDdoc.GetJSObject
objJso.SaveAs "c:\your folder\test.tiff", "com.adobe.acrobat.tiff"
objPDdoc.Close
objAvDoc.Close (False)
Set objJso = Nothing
Set objPDdoc = Nothing
Set objAvDoc = Nothing
Set objAcro = Nothing
End FunctionEsto es un extracto, pero tal como digo anteriormente, no lo he probado. Mis saludos >> Jacinto