• Advertisement

automation avec word (pour les expert)

Tout ce qui concerne la version 10 de windev
**Windev est une marque déposée de Pcsoft**

Messagepar maroudev » Mer Mai 30, 2007 11:49 am

Aller SVP j'ai besoin de votre aide je ne trouve toujours pas comment faire pour transférer un champ table vers word qui existe
maroudev
Membre
 
Messages: 34
Inscription: Ven Avr 13, 2007 9:10 pm

Advertisement

Messagepar WD3000 » Mer Mai 30, 2007 5:53 pm

je t'ai donné ce qui me semble être la meilleure solution avec le fichier rtf
WD3000
 

Messagepar maroudev » Jeu Mai 31, 2007 12:12 pm

Mais comment relier le fichier RTF a mon fichier word pour avoir un seul fichier word et colle le rtf dans l'endroit que je veux ?

merci
maroudev
Membre
 
Messages: 34
Inscription: Ven Avr 13, 2007 9:10 pm

Messagepar maroudev » Jeu Mai 31, 2007 12:22 pm

Voici le code que j'ai utiliser :

word est un objet Automation dynamique
word = allouer un objet Automation "Word.application"
word>>Documents>>Open("C:\test.doc") //Fichier Word
word>>Visible = Vrai
j est un entier
k est un entier = TableOccurrence(TABLE_Pieces)
POUR j = 1 A k
TANTQUE j <= k
TableSelectPlus(TABLE_Pieces,j)
word>>Selection>>GoTo(-1,0,0,"Numeropiece") // numeropiece et le nom du signet sous word
word>>selection = TABLE_Pieces.IDPieces_Visitee[j]
word>>Selection>>GoTo(-1,0,0,"nompiece")
word>>selection = TABLE_Pieces.Nom_Piece[j]
word>>Selection>>GoTo(-1,0,0,"etage")
word>>selection = TABLE_Pieces.Etage[j]
SI TABLE_Pieces.Visitee = True ALORS
word>>Selection>>GoTo(-1,0,0,"visiteeoui")
word>>selection = "X"
SINON
word>>Selection>>GoTo(-1,0,0,"visiteenon")
word>>selection = "X"
FIN
word>>Selection>>GoTo(-1,0,0,"justificationtab")
word>>selection = TABLE_Pieces.Justification[j]
j++
FIN
FIN
maroudev
Membre
 
Messages: 34
Inscription: Ven Avr 13, 2007 9:10 pm

Word

Messagepar bhdih » Sam Juin 16, 2007 10:44 am

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

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")


ça a marché pour moi, mais est-il possible d'écrire à la place de "montexte" une valeur d'un champ d'un fichier HF ? si oui comment procéder SVP ?
Exemple :
word>>selection>>Typetext ("Agents.Nom")
Merci Tunidev...
Merci Collaborateurs...
http://www.devlogisite.com
bhdih
Membre Confirmé
 
Messages: 158
Inscription: Sam Nov 19, 2005 11:57 am
Localisation: Maroc

Précédente


  • Advertisement

Retourner vers Forum Windev 10

 


  • Articles en relation
    Réponses
    Vus
    Dernier message

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 0 invités