Using the API to convert Microsoft Word doc in PDF/A?

I have a Delphi application in which I generate a PDF from a MS-Word document.

To create a PDF file, I use an API. Here is the part of the code (only what is interesting for now).

This API is Adobe Acrobat Professional 9.

What I want is to create a document using this API or any other PDF/A that should be here.

Any ideas?

Thank you.

Israel

Environment:

Delphi 7

Adobe Acrobat Professional 9

--------------------------------------------------------

var

AVDoc: Variant;

PDDoc: Variant;

ArqDOC, ArqPDF: OleVariant;

County: integer;

Start

ArqDOC: = "c:\temp\test.doc"

ArqPDF: = 'c:\temp\test.pdf ';

Try

AVDoc: = CreateOleObject ('AcroExch.AVDoc');

AVDoc.Open(ArqDOC, '');

Application.ProcessMessages;

County: = 0;

While (not AVDoc.IsValid) and (count < 15) don't

Start

Sleep (1000);

Inc. (Count);

end;

If AVDoc.IsValid then

Start

PDDoc: = AVDoc.GetPDDoc;

PDDoc.SetInfo ("Title", ");

PDDoc.SetInfo ("Author", ");

PDDoc.SetInfo ("Subject", ");

PDDoc.SetInfo ("Key words", ");

PDDoc.Save (1 or 4 or 32, ArqPDF);

Application.ProcessMessages;

PDDoc.Close;

end;

AVDoc.Close (False);

Finally

VarClear (PDDoc);

VarClear (AVDoc);

end;

end;

-------------------------------------------------

The use of AVDoc.Open () on any other than PDF format is not supported.

Tags: Acrobat

Similar Questions

Maybe you are looking for

  • Why is there a newer version that I installed (with automatic update)

    Advice of ScanCircle I use the version of Mozilla Thunderbird 31.6.0 (x 86 en - us) 31.6.0, but the latest version is of 38.0.Ditto for Mozilla Firefox (x 86 en - us) where I am under 37.0.2, but the latest version here 38.0 also.My system is configu

  • cDAQ-9172

    Hello I am using a cdaq-9172 with a NI 9421 pass. I want to watch the first 4 bits as an integer and see in the shared variable engine. Any thoghts on how I could do this? I have tried to make a new global virtual channel but can select entry or entr

  • I can connect to my hotmail account but cannot open, delete or do anything else.

    I can connect to my hotmail account but unable to open, delete or do anything else.  I tried to reset Internet Explorer, nothing works.  Even contacted Microsoft but because it's free hotmail, they sent me an e-mail with a link that I followed to the

  • secure boot is not configured

    error "secure boot is not configured" after the upgrade to windows 8.1... ???

  • Configure the network

    All,Thanks in advance for the help.I'm not new to virtualization, but miss me something with vmware workstation (sitting on a XP machine)I have 3 virtual machine on the subnet 172.16.0.0172.16.0.98 - gw: 172.16.0.99172.16.0.200 - gw: 172.16.0.99172.1