Bonjour. J'ai un souci par rapport au pilotage de word par windev 17. J'ai mis mon fichier au format rtf. Je voudrais remplace@nom par la valeur fournie par l'application Voici mon code nomdoc est une chaîne = SAI_Contrat WdReplaceAll est un entier=2 WdFindContinue est un entier=1
//Déclaration de l'objet OLE word est un objet OLE dynamique word=allouer un objet OLE "WORD.Application" word>>Visible=OLEFaux
//Ouverture du document en lecture word>>Documents>>Open(nomdoc,OLEFaux,OLEVrai)
// on remplace @nom par le contenu de la variable nomprenom word>>Selection>>Find>>Execute("@nomsoc" , OLEFaux , OLEVrai , OLEFaux , OLEFaux , OLEFaux , OLEVrai , WdFindContinue , OLEFaux , SansEspace(gsNomsoc), WdReplaceAll)
// on remplace @adr par le contenu de la variable adresse word>>Selection>>Find>>Execute("@adr" , OLEFaux , OLEVrai , OLEFaux, OLEFaux ,OLEFaux , OLEVrai , WdFindContinue , OLEFaux , SansEspace(gsAdressesoc) , WdReplaceAll)
//word>>Documents>>Open(nomdoc,OLEFaux,OLEVrai)
// on remplace @nom par le contenu de la variable nomprenom word>>Selection>>Find>>Execute("@ifu" , OLEFaux , OLEVrai , OLEFaux , OLEFaux , OLEFaux , OLEVrai , WdFindContinue , OLEFaux , SansEspace(gsNifu), WdReplaceAll)
/ Impression du document word>>Printout() Multitâche(200)
//Fermeture document word>>Documents>>close(OLETrue)
//Fermeture Word word>>Quit()
//Libération de l'objet OLE libérer word
Lorsque j'exécute , j'ai le message "en tentant d'exécuter la méthode execute, l'objet Automation activeX a renvoyé une erreur" Aidez moi SVP |