https://drive.google.com/file/d/1uTdGBK1uED0D5iLBkBvh-QFQHPbABqos/view?usp=share_link
以下VBA主要是將PDF轉JPG檔,遇到問題是在家裡使用office2016轉換皆正常,但到公司使用office2013卻失敗,不確定是否版本問題(公司版本如上圖)或公司電腦有限制什麼,想請教網大們是否有其他解法呢?
Sub test()
Dim oaapp As New Acrobat.AcroApp
Dim oaavd As New Acrobat.AcroAVDoc
Dim oapdd As Acrobat.AcroPDDoc
Dim i As Long
Dim jso As Object
i = oaapp.Show
i = oaavd.Open("D:\TEST.pdf", "")
Set oapdd = oaavd.GetPDDoc()
Set jso = oapdd.GetJSObject
jso.SaveAs "D:\test-01.jpeg", "com.adobe.acrobat.jpeg"
i = oaavd.Close(1)
i = oaapp.Hide
i = oaapp.Exit
Set jso = Nothing
Set oaavd = Nothing
Set oaapp = Nothing
End Sub
Reader有轉存JPEG的功能嗎??我記得要不能只有Reader的版本, 開介面操作看看吧