initialiser les contrôles d'un document word

[diombo]

Bonjour,
Je cherche désepéremment comment initialiser les contrôles (activeX) qui sont présents dans un document word.
Il ne sagit pas ici de la collection fields, ni d'une collection controls dans une userform, mais d'une collection de controls dans un formulaire word.

Concrétement, je cherche l'équivalent de ce code (dans le cadre d'un user form) pour un document word (fichier.doc - office 2007 )

Code :

1
2
3
4
5
6
7
8
9
10
' vider les contrôles pour la saisie
Dim ctl As Control
For Each ctl In Me.Controls   ' où Me devra indiquez le document word courrant (thisDocument)
    Select Case Left(ctl.Name, 2)
        Case "tx" ' si le contôle est une zone de texte
            ctl.Value = ""
        Case "ls" ' si le contrôle est une liste déroulante
            ctl.Value = Null
    End Select
Next ctl

Remarque : le code ci-dessus fonctionne correctement dans le cas d'un userform
Par avance, je vous remercie
Cordialement

[Heureux-oli]

Salut,

Ce ne sont pas des contrôles Word, mais des éléments externes.
C'est un peu comme une image.

Il faut vérifier pour chaque Inlineshape le type et si c'est un WdInlineShapeOLEControlObject; on se trouve face à un controle ActiveX

Code :

1
2
3
4
Dim inS As InlineShape
For Each inS In ActiveDocument.InlineShapes
if inS.Type = WdInlineShapeOLEControlObject then MsgBox "ActiveX"
Next inS

[diombo]

Merci pour votre réponse;
Je l'ai testé et ça marche. Cependant, je n'arrive pas à trouver le name pour faire des traitements suivant le nom.
Visiblement la propriété name n'existe pas (jai regarder sur Word Developer Reference).
Je me demande si c'est une bonne idée de faire un questionnaire word avec des contrôles activeX car la finalité après c'est de parcourir les objets du document word pour les insérer dans une base de données.
Merci

[Heureux-oli]

Salut,

c'est une question de goût, mais pour un questionnaire, je préfère de loin utiliser les contrôles hérités qui sont plus simples à mettre en oeuvre et à utiliser.

De plus, lors de la sauvegarde, on peut ne garder que les données.

http://heureuxoli.developpez.com/off...d/formulaires/

http://heureuxoli.developpez.com/office/sondage/