pcsoft.fr.windevCopyright 2026, PC SOFT25 Mar 2020 15:21:31 Z25 Mar 2020 15:21:31 ZBonjour J'avais trouvé 2 procédures pour générer un fichier PDF à partir d'un fichier Word qui fournissaient un meilleur résultat que la fonction de Windev. Ce code ne fonctionne plus et m'indique que le tableau dynamique n'a pas été alloué (Code erreur : 2301) sur la ligne : [code:wl] oExportObject>>Set("[]com.sun.star.beans.PropertyValue",tParams); [/code] Je pense que c'est depuis le passage de Windev 22 à 25, J'ai réinstallé les versions de LibreOffice v6.3, 6.2, 6.1, 6.0 et même v5, cela ne change rien. Quelqu'un a-t-il une idée ? [code:wl] PROCÉDURE CreateProperty(oServiceManager,__tArgs,_sName est une chaîne,_vValue) TableauAjoute(__tArgs) iNbOccurences est un entier = __tArgs..Occurrence __tArgs[iNbOccurences] = oServiceManager>>Bridge_GetStruct("com.sun.star.beans.PropertyValue") __tArgs[iNbOccurences]>>Name = _sName __tArgs[iNbOccurences]>>Value = _vValue [/code] [code:wl] PROCÉDURE DocumentVersPDF(LOCAL _sDocCheminComplet est une chaîne,_sDocPDFCheminComplet est une chaîne="") LOCAL oServiceManager est un objet OLE dynamique oDesktop est un objet OLE dynamique oDocument est un objet OLE dynamique sMess est une chaîne SI PAS fFichierExiste(_sDocCheminComplet) ALORS sMess = "Le document source n'existe pas." ExceptionDéclenche(1,sMess) FIN QUAND EXCEPTION DANS // Création d'un service OpenOffice si nécessaire oServiceManager = allouer un objet OLE ("com.sun.star.ServiceManager") oDesktop = oServiceManager>>createInstance("com.sun.star.frame.Desktop") FAIRE sMess = "OpenOffice n'est pas installé sur votre poste." ExceptionDéclenche(1,sMess) FIN tParams est un tableau de 0 objet Automation dynamique //Tableau de paramètres //Masqué CreateProperty(oServiceManager,tParams,"Hidden",Vrai) //Lecture seule //CreateProperty(oServiceManager,tParams,"ReadOnly",faux) //Formatage du chemin du fichier LOCAL sDocCheminCompletTmp est une chaîne sDocCheminCompletTmp = "file:///"+Remplace(_sDocCheminComplet,"\","/") //Ouverture du fichier dans OpenOffice Writer oDocument = oDesktop>>LoadComponentFromURL(sDocCheminCompletTmp,"_blank",0,tParams) SI oDocument = Null ALORS ExceptionDéclenche(1,"Impossible de charger le document source.") FIN TableauSupprimeTout(tParams) //CreateProperty(oServiceManager,tParams,"Magnification",2) //CreateProperty(oServiceManager,tParams,"EncryptFile",vrai) //CreateProperty(oServiceManager,tParams,"DocumentOpenPassword","Password") //CreateProperty(oServiceManager,tParams,"HideViewerWindowControls",vrai) oExportObject est un objet OLE dynamique oExportObject = oServiceManager>>Bridge_GetValueObject() oExportObject>>Set("[]com.sun.star.beans.PropertyValue",tParams); tFilterParams est un tableau de 0 objet Automation dynamique CreateProperty(oServiceManager,tFilterParams,"FilterName","writer_pdf_Export") CreateProperty(oServiceManager,tFilterParams,"FilterData",oExportObject) SI _sDocPDFCheminComplet = "" ALORS _sDocPDFCheminComplet = fExtraitChemin(_sDocCheminComplet,fDisque+fRépertoire+fFichier)+".pdf" FIN LOCAL sDocPDFCheminCompletTmp est une chaîne sDocPDFCheminCompletTmp = "file:///"+Remplace(_sDocPDFCheminComplet,"\","/") oDocument>>StoreToURL(sDocPDFCheminCompletTmp,tFilterParams); oDocument>>Close(Vrai); CAS EXCEPTION: sMess = "Erreur lors de la sauvegarde du document : "+RC sMess += "'"+_sDocCheminComplet+"'"+RC sMess += "vers le document : "+RC sMess += "'"+_sDocPDFCheminComplet+"'."+RC ExceptionPropage(sMess+RC+RC+ExceptionInfo(errComplet)) [/code] Merci d'avance.30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237941-convertir-document-format-docx-vers-format-pdf-avec/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)