ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Charger un PDF dans Acrobat, lister les champs du formulaire, modifier une valeur, enregistrer...

	Description
Retour à la liste L'auteur Francis Faure France Membre Actif (personne physique) # 0000000001 enregistré le 11/10/2004 http://www.wanagain.net 56 ans Faure Francis de la société Design Or Decline Fiche personnelle Note des membres pas de note	Contributions > 09 - Automation > Adobe Acrobat Charger un PDF dans Acrobat, lister les champs du formulaire, modifier une valeur, enregistrer... # 0000000396 ajouté le 20/01/2007 20:20:48 et modifié le 20/01/2007 consulté 11635 fois Niveau initié Version(s) Foxpro : VFP 9.0 VFP 8.0 VFP 7.0 VFP 6.0 VFP 5.0 VFP 3.0
	Proposition d'un code source illustrant la gestion d'un formulaire PDF avec Adobe Acrobat Cordialement Francis FAURE
	Code source :
	* But : illustrer un chargement d'un document PDF ayant un formulaire dans Adobe Acrobat * (version normale, pas le reader) * Lister les champs et remplir le champ "Nom" du formulaire... * et sauvegarder lsFichierPDF = "C:\data\vfpAcrobat\test.pdf" IF NOT FILE(m.lsFichierPDF) =MESSAGEBOX("Fichier PDF Introuvable.",16, "m.lsFichierPDF", 2000) RETURN endif oApp=CreateObject("AcroExch.App") oDoc=CreateObject("AcroExch.AVdoc") if oDoc.Open(m.lsFichierPDF, "Titre") oForm = CreateObject("AFormAut.App") * liste des champs for each lsFields in oForm.Fields ? "Champ=",ALLTRIM(m.lsFields.name), "Type=", m.lsFields.type, "Valeur=", m.lsFields.Value * Modification de la valeur du champ "nom" IF ALLTRIM(lsFields.name)="nom" oForm.fields("nom").value = "AtoutFox" ENDIF NEXT * sauvegarde du fichier PDF oPddoc = oDoc.GetPDDoc oPddoc.save(1, m.lsFichierPDF) oForm = null endif oDoc.Close(1) oDoc=null oApp.Exit oApp = null
	Commentaires
	Aucun commentaire enregistré ...

Charger un PDF dans Acrobat, lister les champs du formulaire, modifier une valeur, enregistrer...

Contributions > 09 - Automation > Adobe Acrobat