//Je rends inaccessible les Options Enregistrer...
//A faire avant de remplir les champs car si on quitte Word très vite, possibilité erreur sur Caption
Nb_Menu = Word97>>Application>>ActiveDocument>>CommandBars>>ActiveMenuBar>>Controls>>Count
POUR Compteur_menu = 1 A Nb_Menu
Nb_SMenu = Word97>>Application>>ActiveDocument>>CommandBars>>ActiveMenuBar>>Controls>>Item(Compteur_menu)>>Controls>>Count
POUR Compteur_sous_menu = 1 A Nb_SMenu
Nom_Option = Word97>>Application>>ActiveDocument>>CommandBars>>ActiveMenuBar>>Controls>>Item(Compteur_menu)>>Controls>>Item(Compteur_sous_menu)>>Caption
//Info(Nom_Option)
SELON Nom_Option
CAS "Enre&gistrer", "En®istrer sous...", "Enregistrer en tant q&ue page Web...", "&Nouveau...", "Ou&vrir...", "&Fermer"
Word97>>Application>>ActiveDocument>>CommandBars>>ActiveMenuBar>>Controls>>Item(Compteur_menu)>>Controls>>Item(Compteur_sous_menu)>>Visible = Faux
FIN
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=20&topic_id=6331&post_id=25068