"Invalid Variant Operation" when AVDoc.GetPDDoc

Question

Hi, I create pdf object by ole in delphi.
=====================
    try
        AcroApp := CreateActiveXObject('AcroExch.App');
        AcroApp.Hide;
    except
        Exit;
    end;
         AcroAVDoc := CreateActiveXObject('AcroExch.AVDoc');
        if not AcroAVDoc.Open(strFileName, '') then begin
            Exit;
        end;
        AcroAVDoc := AcroApp.GetActiveDoc;
        AcroPDDoc := AcroAVDoc.GetPDDoc;  <-- throw invalid variant operation exception
     AcroPDDoc.Save(1, strFileName);
==========================
In fact, If I can save the document, do not know if there is no other way to bypass the pddoc, if only with pddoc, is not playing some of the patches can

Answer 1

Attached a sample VBS. Save it as ...vbs and doubleclick on it.
If it works for you, ask in the delphi forum, how to translate.
HTH, Reinhard
AcroTestSave.vbs
fileIn = "C:\Test.pdf"                         '// state the full path of the file to open
FileOut = "C:\Test3.pdf"                  '// state the full path for the file to save
set App = CreateObject("AcroExch.App")            '// start Adobe Acrobat
App.Show                                                      '// show Acrobat
Set AVDoc = CreateObject("AcroExch.AVDoc") '// connect to  Ac Viewer
AVDoc.Open fileIn,""                                '// Open a file into viewer
set PDDoc = AVDoc.GetPDDoc             '// Get the Doc opened in the viewer
set JSO = PDDoc.GetJSObject            '// Connect to Acrobat JS
JSO.app.alert("Hi, the file is open press Ok and I'll save it")  '// Display a MsgBox
PDDoc.Save 3,fileOut                             '// SaveAs
App.CloseAllDocs                                       '// close all docs
set JSO = nothing
set AvDoc = nothing
set PdDoc = nothing
set App = nothing