Discussion :

[tegestobis]

Bonjour,

Je rencontre une difficulté dans la fusion d'un document word avec des données que je manipule depuis mon appli windev.

J'utilise un objet automation Word auquel je transmet les données via un simple rechercher/remplacer.

Tout cela marche très bien si mes champs à remplacer sont dans le corps, les pieds de page ou les en têtes.

Par contre certains de mes champs sont dans des zones de texte et là cela ne marche plus.

Quelqu'un a t'il déjà rencontré le souci ?

Merci d'avance.

[mogwai162]

Essaie de faire ça à la main sous word en enregistrant la macro.
Peux être trouveras tu ton bonheur..

[tegestobis]

Oui j'ai déjà essayé.
Mais sous mon word 2000, en mode macro il est impossible de sélectionner une zone de texte existante dans un fichier modèle

[Bowen]

J'ai bien peur que ce que tu ne peux pas faire en macro ne soit pas pilotable en code VBA, donc pas non plus par automation...

A mon avis, il faut que tu commences par te renseigner dans un forum VBA, pour savoir si c'est possible de le faire en VBA. Ensuite, tu reprendras ces ordres VBA (s'ils existent) dans ton code.

[tegestobis]

Ok merci pour vos réponses.
Je crains de devoir modifier le modèle de documents
Je me retourne vers les experts VBA et vous tiens au courant si une solution existe.

[tegestobis]

Voici la solution (avec l'aide du forum VBA)

Il faut parcourir les zones de texte, les sélectionner et remplacer à la volée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
POUR k=1 _A_ pobj>>ActiveDocument>>Shapes>>Count
	pobj>>ActiveDocument>>Shapes(k)>>Select
	pobj>>Selection>>Find>>Execute("<NUMFACTURE>",OLEFaux,OLEFaux,OLEFaux,OLEFaux,OLEFaux,OLEVrai,WdFindContinue,OLEFaux,gNum,WdReplaceAll)
fin