Problème de compatibilité word 2007

Posté par 00avatar00 le 13/1/2010 11:37:45
Bonjour à tous

Je viens ici car, j'ai si dessou un code qui permet de supprimer certaines fonctions dans le menu fichier de word.

Mon problème est que se code fonctionne pour word 2003 ou autre mais pas pour word 2007.

Si quelqu'un a une idée

//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

Merci d'avance

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=20&topic_id=6331&post_id=25068