FORUM WINDEV

par **maroudev** » Jeu Mai 24, 2007 4:29 pm

SVP comment insérer des donnée dans un fichier word qui existe depuis windev ou plus simple comment piloter word depuis windev

merci de votre aide

un bout de code sera le bienvenue

j'ai tester l'exemple envoi de touche , mais i ne permet pas d'envoyer par exemple la valeur d'un champ de saisi dans un endroit précis :

par exemple j'ai une fenetre client : nom, prenom adresse

et j'ai un fichier word qui contient les même valeur : nom,prenom,adresse

alors comment faire pour insérer chaque valeur dans l'endroit approprié et est possible d'utiliser les signet de word.

merci bcp j'en y vraiment besoin de vos réponse

par **bhdih** » Sam Mai 26, 2007 5:41 pm

Je crois que ça n'est possible qu'avec Excel qui contient des cellules avec leurs adresses absolues ou relatives et là avec windev et les exemples fournis tu peux y arriver... :lol:

par **Samifred** » Sam Mai 26, 2007 6:48 pm

Pourquoi ça fonctionne pas ?
Il faut créer une page word avec un tableau et l'enregistrer, ensuite l'ouvrir
avec le projet WD Envoi touches.

La preuve: http://www.winfred.ch/imageword.htm

par **WD3000** » Sam Mai 26, 2007 7:07 pm

utilise objet automation dynamique
tu peux ouvrir ton document word, recherche, remplacer et tout ce que tu peux encore imaginer
par exemple
DocWord est un objet Automation dynamique
DocWord>>documents>>open(lefichier)
DocWord>>Selection>>Find>>Execute(SansEspace(MOT_CHERCHE),OLEFaux,OLEFaux,OLEFaux,OLEFaux,OLEFaux,OLEVrai,1,OLEFaux,VALEUR_REMPLACEMENT,2)

docword>>quit()
liberer docword

par **Samifred** » Sam Mai 26, 2007 10:11 pm

En complément de WD3000

word est un objet Automation dynamique
word = allouer un objet Automation "Word.application"
word>>Documents>>Open("C:\MonWord.doc") //Fichier Word
word>>Visible = Vrai
word>>Selection>>Text = SAI_Saisie1 //Champ de saisie multilignes à écrire dans Word
word>>Documents>>Save
word>>Quit()
libérer word

par **maroudev** » Lun Mai 28, 2007 6:16 pm

Merci a tous pour vos réponse voici le code que j'ai utiliser si ca peux intéresser d'autres :

Il faut créer des signets au endroits ou vous voulez placer votre texte et dans le code d'un bouton imprimer (par exemple) :

word est un objet Automation dynamique
word = allouer un objet Automation "Word.application"
word>>Documents>>Open("C:\mondocument.doc") //Fichier Word
word>>Visible = Vrai
word>>Selection>>GoTo(-1,0,0,"monsignet")
word>>selection>>Typetext ("montexte")

merci

par **maroudev** » Lun Mai 28, 2007 6:19 pm

Maintenant j'ai un autre soucis : j'ai un tableau dans word et je veux transférer le contenu d'un champ table vers les cellule du tableau, je sais qu'il faut utiliser une boucle mais laquel je bloque .

merci d'avance pour votre aide.

www.maroudev.com

par **Samifred** » Mar Mai 29, 2007 9:02 am

Tu peux peut être t'inspirer de ceci:

POUR TOUT ELEMENT sUnElement DE tbTableauChamps
sContenuChamp = {sUnElement,indChamp}..ValeurAffichée
word>>Visible = Faux
word>>Selection>>Text = sContenuChamp
...
...
sContenuChamp = PressePapier()
{sUnElement,indChamp}..Valeur = sContenuChamp
FIN

par **maroudev** » Mar Mai 29, 2007 11:37 am

Bonjour

j'ai utiliser la solution de Mr. samifred mais ca ne marche pas , j'ai aussi esseyer de traduire le code suivant pour word :

QUAND EXCEPTION DANS
nbre_lignes=TableOccurrence(table)
TANTQUE i<=nbre_lignes
MaFeuilleXLS>>Range("A"+i)>>Value =table[i,x]
i++
fin
FIN

mais je n'arrive pas de l'aide SVP

merci

par **WD3000** » Mar Mai 29, 2007 12:43 pm

le champ table est forcément de dimension variable donc il vaut mieux ne pas créer de tableau dans le modèle Word mais le créer à la volée
tu peux utiliser tableversword() pour créer un fichier rtf que tu fusionne dans word
rtfcharge;rtfcherche;rtfremplace; rtfajoute

par **maroudev** » Mar Mai 29, 2007 10:50 pm

Bonjour

je cherche toujours la solution, personne na trouver ?

FORUM WINDEV

automation avec word (pour les expert)

automation avec word (pour les expert)

Advertisement

Pilotage

Qui est en ligne