Discussion :

[AirbusA330]

Bonjour a tous

Encore une Question Concernant Word , voila mon probleme est le suivant . En ouvrant un document word je voudrais Desactiver ou activer certaine commande du Menu Fichier et Edition. Plus clair , je voudrais desactiver les commandes Suivantes : Enregistrer , Enregistrer Sous ,Copier , etc. Je suis arriver a trouver ces Commande dans la Classe Dialog de Word ( il y en a a peu pres 200 ).

Code :

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

1
2
3
4
5
 
 
Dim MyWord as Word.Application
 
MyWord.Application.Dialogs( wdDialog.......)

En trouvant ca je m'attendais a trouver une propriété du type Enable = Vraie / Faux ou bien Afficher ou masquer . Malheureusement je nage encore...

Merci de votre precieuse aide

[AirbusA330]

Apres de longue recherches et essais j'ai finalement trouvé la solution:

la collections CommandBars de l'objet word permet d'acceder aux differents barres menus , barres d'outils et menu contextuels , soit en donnant l'index dans la collection soit par son nom( en Anglais exp File , Edit etc... ).

Pour acceder a un elemnet de la Barre de menu la syntaxe est la suivante :

Code :

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

1
2
3
4
5
 
 
ObjWord.Applictaion.CommandBars("MenuItem").Enabled = Status
 
' Ou MenuItem est le Nom du menu ou son Index ,, Statut = Vraie ou Faux

Pour acceder aux sous-menu d'un lement du menu syntaxe est la suivante :

Code :

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

1
2
3
4
5
 
 
ObjWord.Applictaion.CommandBars("MenuItem").Controls("ContlItem").Enabled = Status
 
' Ou ContlItem est le sous-menu a activer/desactiver

Pour Desacliver la commande Nouveau du menu fichier :

Code :

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

1
2
 
ObjWord.Applictaion.CommandBars("File").Controls(1).Enabled = False

pour Enumerer les Noms des sous-menu d'un element de la barre des menu

Exp pour Le Menu Fichier :

Code :

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

1
2
3
4
5
6
7
 
 
for i = 1 to ObjWord.Applictaion.CommandBars("File").Controls.count
 
debug.print ObjWord.Applictaion.CommandBars("File").Controls(i).Captation
 
next i

J'espere que ca aidera quelqu'un

Bye