VB6-PDF-WORD - Récuperer les valeurs d'une listebox et checkbox
Résolu
Winneuts
Messages postés
4
Date d'inscription
mercredi 23 août 2006
Statut
Membre
Dernière intervention
17 mars 2008
-
17 mars 2008 à 10:33
Winneuts Messages postés 4 Date d'inscription mercredi 23 août 2006 Statut Membre Dernière intervention 17 mars 2008 - 17 mars 2008 à 17:25
Winneuts Messages postés 4 Date d'inscription mercredi 23 août 2006 Statut Membre Dernière intervention 17 mars 2008 - 17 mars 2008 à 17:25
A voir également:
- VB6-PDF-WORD - Récuperer les valeurs d'une listebox et checkbox
- C# pdf - Forum C# / .NET
- Php word ✓ - Forum PHP
- Checkbox word - Forum VBA Office (Excel, Word ...)
- Alphabet arabe pdf - Forum PHP
- Excel vba récupérer valeur cellule active ✓ - Forum VBA Office (Excel, Word ...)
1 réponse
Winneuts
Messages postés
4
Date d'inscription
mercredi 23 août 2006
Statut
Membre
Dernière intervention
17 mars 2008
17 mars 2008 à 17:25
17 mars 2008 à 17:25
A y est j'ai trouvé comment faire avec word :
Voici mon code :
'Ajouter la réference "Microsoft Word 8.0 Object library
'Objet général pour travailler avec WORD
Dim wrdApp As Word.Application
'Objet document permet d'accéder a toutes les caractéristiques des documents WORD
Dim wrdDoc As Word.Document
'Partie d'un document permet de modifier les propriétés d'une zone
Dim wrdRange As Word.Range
'Création de l'objet word
Set wrdApp = New Word.Application
'ouverture du document word servant de template
Set wrdDoc = wrdApp.Documents.Open(App.Path & "\formulaire saisi 1.doc")
Text1.Text = wrdDoc.FormFields("txtnom").Result
Text2.Text = wrdDoc.FormFields("txtprenom").Result
Text3.Text = wrdDoc.FormFields("lbxdirection").Result
Text4.Text = wrdDoc.FormFields("casephoto1").Result
Text5.Text = wrdDoc.FormFields("casephoto2").Result
Text6.Text = wrdDoc.FormFields("casephoto3").Result
wrdDoc.Close SaveChanges:=0
'indispensable autrement une instance de WINWORD reste en memoire
wrdApp.Quit
'Destruction des objets
Set wrdRange = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub
Voici mon code :
'Ajouter la réference "Microsoft Word 8.0 Object library
'Objet général pour travailler avec WORD
Dim wrdApp As Word.Application
'Objet document permet d'accéder a toutes les caractéristiques des documents WORD
Dim wrdDoc As Word.Document
'Partie d'un document permet de modifier les propriétés d'une zone
Dim wrdRange As Word.Range
'Création de l'objet word
Set wrdApp = New Word.Application
'ouverture du document word servant de template
Set wrdDoc = wrdApp.Documents.Open(App.Path & "\formulaire saisi 1.doc")
Text1.Text = wrdDoc.FormFields("txtnom").Result
Text2.Text = wrdDoc.FormFields("txtprenom").Result
Text3.Text = wrdDoc.FormFields("lbxdirection").Result
Text4.Text = wrdDoc.FormFields("casephoto1").Result
Text5.Text = wrdDoc.FormFields("casephoto2").Result
Text6.Text = wrdDoc.FormFields("casephoto3").Result
wrdDoc.Close SaveChanges:=0
'indispensable autrement une instance de WINWORD reste en memoire
wrdApp.Quit
'Destruction des objets
Set wrdRange = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub
