|
| OLE Word : Désactiver des éléments dans le menu de word |
| Iniciado por Mail.Zap, 15,oct. 2004 13:04 - 1 respuesta |
| |
| | | |
|
| |
| Publicado el 15,octubre 2004 - 13:04 |
Bonjour a tous,
J'ai un problème. Je souhaite désactiver les éléments suivants après l'ouverture
de Ms Word (OLE) :
"Fichier..Enregistrer sous..."
"Fichier..Ouvrir"
"Fichier..Nouveau"
Merci d'avance.
Philippe C. |
| |
| |
| | | |
|
| | |
| |
| Publicado el 19,octubre 2004 - 18:06 |
Voir ceci
i, ii est un entier
Nb_Menu , Nb_SMenu sont des entier
Nom_Option est une chaîne
Word est un objet automation dynamique
Word = allouer un objet automation "Word.Application"
Word>>Visible = OLEVrai
Word>>Documents>>Add()
Nb_Menu = Word>>Application>>ActiveDocument>>CommandBars>>ActiveMenuBar>>Controls>>Count
POUR i = 1 A Nb_Menu
Nb_SMenu = Word>>Application>>ActiveDocument>>CommandBars>>ActiveMenuBar>>Controls>>Item(i)>>Controls>>Count
POUR ii = 1 A Nb_SMenu
Nom_Option = Word>>Application>>ActiveDocument>>CommandBars>>ActiveMenuBar>>Controls>>Item(i)>>Controls>>Item(ii)>>Caption
//tableajoute(table,Nom_Option) // recupere le nom des options des menus
SI Nom_Option = "Enre&gistrer" ALORS Word>>Application>>ActiveDocument>>CommandBars>>ActiveMenuBar>>Controls>>Item(i)>>Controls>>Item(ii)>>Visible = False
FIN
FIN
Cordialement
LJ |
| |
| |
| | | |
|
| | | | |
| | |
|