PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → Modifier des champs de fusion dans word par OLE AUTOMATION
Modifier des champs de fusion dans word par OLE AUTOMATION
Débuté par info, 19 déc. 2005 19:55 - Aucune réponse
#1
Posté le 19 décembre 2005 - 19:55
bonjour

nous avons un doc word avec lequel nous faisons de la fusion sans problème
et nous souhaitons pouvoir modifier par programmation les champs de fusions.

Nous procédons actuellement par les commandes suivantes mais cela ne change
que le texte (en apparence) et non le nom du champ de fusion lui même. si quelqu'un
a une solution merci d'avance.


LOCAL
PubWord est un objet OLE dynamique = ObjetActif("Word.Application")
WdReplaceAll est un entier=2
WdFindContinue est un entier=1
champARemplacer, nouveauChamp sont des chaînes

champARemplacer = Caract(34)+"CIV_CLIENT"+Caract(34)
nouveauChamp = Caract(34)+"CIV_ACQ"+Caract(34)

PubWord = allouer un objet OLE "Word.Application"
PubWord>>Documents>>Open(CheminDoc+"\Acquéreur\Courrier libre ancien.doc")
PubWord>>Selection>>Find>>Execute champARemplacer,OLEFaux,OLEVrai,OLEFaux,OLEFaux,OLEFaux,OLEVrai,WdFindContinue,OLEFaux,nouveauChamp,WdReplaceAll)
PubWord>>ActiveDocument>>Save()
pubword>>ActiveDocument>>close(Vrai)
PubWord>>Quit(Faux,Faux,Faux)
libérer PubWord

merci d'avance pour votre aide.
Cordialement
Olivier
→ Revenir à WINDEV 2024