Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[NABIL74]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Dede99]

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

une autre idée ?

[archonte]

et dans un DataModule ?

[Dede99]

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é

[Dede99]

Vive les vacances...

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;