Creation Checkbox dans Word

Bonjour,

Je cherche à créer une case à cocher dans le document Word que j'ai ouvert.
En regardant dans la FAQ j'ai vu un code qui corespondait à ma question

Code:

---

1 2 3 4 5 6 7 8

Var Index : OleVariant; Objet : FormField;   begin Index:='CaseACocher1'; // Nom du signet, peut être une valeur numérique Objet:=WordDocument1.FormFields.Item(Index); Objet.CheckBox.Value:=True; end;

---

Or, à la compilation j'ai un message d'erreur sur la ligne "Objet:=WordDocument1.FormFields.Item(Index); "
=> "Types incompatibles : 'Variant ' et 'FormField'

RQ : j'ai aussi trouvé une discussion dans le forum mais avec la même info
http://www.developpez.net/forums/d50...-cases-cocher/

Quelqu'un pourrait-il m'indiquer ce qui coince ?

Citation:

---

Envoyé par Dede99

Bonjour,

Je cherche à créer une case à cocher dans le document Word que j'ai ouvert.
En regardant dans la FAQ j'ai vu un code qui corespondait à ma question

Code:

---

1 2 3 4 5 6 7 8

Var Index : OleVariant; Objet : FormField;   begin Index:='CaseACocher1'; // Nom du signet, peut être une valeur numérique Objet:=WordDocument1.FormFields.Item(Index); Objet.CheckBox.Value:=True; end;

---

Or, à la compilation j'ai un message d'erreur sur la ligne "Objet:=WordDocument1.FormFields.Item(Index); "
=> "Types incompatibles : 'Variant ' et 'FormField'

RQ : j'ai aussi trouvé une discussion dans le forum mais avec la même info
http://www.developpez.net/forums/d50...-cases-cocher/

Quelqu'un pourrait-il m'indiquer ce qui coince ?

---

salut,

Pour que ça marche,mets sur ta fiche le composant "WordDocument" (Dans l'onglet "Serveurs").

NABIL74

Merci de t'être penché sur mon pb, mais...

j'utilise une unité sans forme, je ne peux donc déposer le composant "WordDocument".

J'ai regardé ce qui se passait en le déposant et j'ai vu qu'il rajoutait l'unité "WordXP" dans le "uses".

Je l'ai donc inséré dans le uses de mon Unit, mais j'ai le même message :cry:

une autre idée ?

et dans un DataModule ? 8O

Heeuuu...

c'est sans doute parce que j'ai besoin de vacances mais je n'ai pas compris ce que viens faire la datamodule avec mon problème

pourriez-vous éclairez ma lanterne ?

PS : je l'ai quand même fait, mais cela n'a rien changé

Vive les vacances...:ccool:

Pour contourner l'erreur du compilateur, j'ai tout simplement by-passé la variable "objet".

Code:

---

1 2 3 4 5 6 7

Var Index : OleVariant;   begin Index:='CaseACocher1'; // Nom du signet, peut être une valeur numérique WordDocument1.FormFields.Item(Index).CheckBox.Value:=True; end;

---