VB6 récuperer les informations d'un formulaire fait sous wordRésolu

Question

Bonjour,

J'ai créer un formulaire protegé sous word et j'y ai mis plusieurs types de champs.

pour les champs texte je récupère les infos sans soucis, là oû j'ai plus de mal c'est au niveau de ma liste déroulante et de mes cases à cocher (ça renvoie le caractère qui ressemble à un carré).

voila le souci, j'espère avoir été assez clair dans mon explication.

Merci d'avance.

Winneuts · Accepted Answer

J'ai trouvé ! Ci-dessous 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")
    wrdApp.Visible = True

    'If wrdDoc.ProtectionType <> wdNoProtection Then
    ' wrdDoc.Unprotect "a"
    'End If
    
    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

VB6 récuperer les informations d'un formulaire fait sous word

1 réponse

Votre réponse

Discussions similaires