VBA Acrobat DC ( NotAllowedError )

[Akbarov]

Hello,

I am running following VBA code, but I get this error:

Not allowed Error: Security settings prevent access to this property or method.

Sub adobdc()

Dim aApp As Acrobat.AcroApp
Dim av_doc As CAcroAVDoc
Dim pdf_doc As CAcroPDDoc
Dim jso_obj As Object

Dim sfile As String
Dim dfile As String
Dim ext As String

ext = "doc"

sfile = "C:\Users\Test\Input\MilkCon.pdf"
dfile = Replace(sfile, "." & ext, 1)

Set aApp = CreateObject("AcroExch.App")
Set av_doc = CreateObject("AcroExch.AVDoc")

If av_doc.Open(sfile, vbNull) = True Then

    Set pdf_doc = av_doc.getPDDoc
    Set jso_obj = pdf_doc.GetJSObject

jso_obj.SaveAs dfile, "com.adobe.acrobat." & ext

End If

av_doc.Close False
aApp.Exit

Set aApp = Nothing
Set av_doc = Nothing

End Sub

I get error here:

jso_obj.SaveAs dfile, "com.adobe.acrobat." & ext

Any help please?