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