PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV (earlier versions) → Pilotage word  par Windev 17
Pilotage word par Windev 17
Started by Kpessou, Feb., 13 2019 2:48 PM - No answer
Posted on February, 13 2019 - 2:48 PM
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