Tengo un problema con las librerías de Acrobat_TLB.pas
 

Hola mi nombre es Juan, tengo un problema con las librerías de Acrobat_TLB.pas estoy intentando hacer funcionar esta función (oJSO.SaveAs('MyNewDOC.doc');) y no consigo que funcione.

Alguien sabe cual es el problema?
Gracias de antemano.

Este es el código:


uses
Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,ShellApi,tlhelp32,
Psapi, FileCtrl,Vcl.OleCtnrs,System.Win.ComObj;


procedure TFormConversor.Button10Click(Sender: TObject);
var
oAApp: Variant;
oAVDoc: Variant;
oJSO: Variant;
oPDDoc: Variant;
begin
//Acrobat_TLB.pas
oAApp := CreateOleObject('AcroExch.App');
oAVDoc := CreateOleObject('AcroExch.AVDoc');
if oAVDoc.Open(''MyNewPDF', '') then
begin
oPDDoc := oAVDoc.GetPDDoc;
oJSO := oPDDoc.GetJSObject; //GetJSOObject;
oJSO.SaveAs('MyNewDOC.doc');
//function Save(nType: Smallint; const sFullPath: WideString): WordBool; safecall;

oJSO.CloseDoc;
end;
oAApp.Exit;
oJSO := VarNull;
oPDDoc := VarNull;
oAVDoc := VarNull;
oAApp := VarNull;
end;

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración :)


Y recuerda poner los tags al código fuente, ejemplo:



Gracias :)

¿Y el problema es?
¿Error? ¿No graba? ¿Algún mensaje? ¿versión?