|
| beaulieu | Posté le 25/05/2008 @ 17:26 |
Petit astucien
496 Messages
| Bonjour à tous, amis astuciens (ciennes). Comment ajouter ou supprimer un barre d'outils au menu contextuel dans WOrd 2007 ? Si quelqu'un connait cette procédure pour solutionner, merci d'avance. @+ Cordialement
|
| |
| |
| Publicité |
|
|
| Bérylion | Posté le 25/05/2008 à 23:11 |
Astucien
2329 Messages
| Salut
bin c'est vrai que c'est une bonne question ! sans passer par du code VBA je vois pas comment faire (super la nouvelle interface intuitive ) faut expliquer un peu plus ce que tu veux faire (quelle commande, quelle icone, quelle action...) paske c'est du "à la carte" 
|
| |
|
| usularrakis | Posté le 26/05/2008 à 08:27 |
Astucien
2534 Messages
| |
| |
|
| beaulieu | Posté le 26/05/2008 à 10:39 |
Petit astucien
496 Messages
| re et merci, mais tout çà c'est plus qu'une usine à gaz, quasiment incompréhensible......... moi ce que je veux faire c'est supprimer celz, j'ai bien sur désinstaller, fait regedit dans le registre etc.. mais je n'arrive pas à surrprimer cette ligne. 
|
| |
|
| Bérylion | Posté le 26/05/2008 à 11:48 |
Astucien
2329 Messages
| Salut
"à l'ancienne" ça pourrait donner un truc du genre : VBA word Sub test() Application.CommandBars("Text").Controls(14).Delete temporary:=True End Sub
suis pas sur du "14" c'est pourquoi ce code ne supprime pas définitivement le controle à la prochaine ouverture, il réapparaitra ; si c'est le bon control, il suffit de lancer la même sub en effaçant le "temporary:=True" autre solution : VBA word Sub test() Application.CommandBars("Text").Reset End Sub
Bonne chance...
|
| |
|
| beaulieu | Posté le 26/05/2008 à 11:58 |
Petit astucien
496 Messages
| re et merci, mais pour moi çà va vite. ou je trouve SUB TEST ???et comment je fais, je ne connais pas la procédure, merci de m'éclairer.... |
| |
|
| beaulieu | Posté le 26/05/2008 à 11:59 |
Petit astucien
496 Messages
| ET OU EST VBA WORD, dans quoi? merci d'avance |
| |
|
| Bérylion | Posté le 26/05/2008 à 12:18 |
Astucien
2329 Messages
| on va faire plus simple : 1 - tu copies cette ligne : msgbox Application.CommandBars("Text").Controls(14).caption 2 - tu ouvres word 3 - tu appuis sur ALT+F11 4 - tu appuis sur CTRL+G 5 - tu appuis sur CTRL+V 6 - tu appuis sur ENTREE un message va apparaitre à l'écran ; si ça dit pas "Translate with &Babylon", tu recommences en changeant le "14" jusqu'a ce que ce soit bon ensuite, tu notes le bon n°, et tu fais pareil avec Application.CommandBars("Text").Controls(le bon n°).delete  [j'ai pas le 2007 sous la main donc je peux pas faire l'essai...] |
| |
|
| beaulieu | Posté le 26/05/2008 à 12:38 |
Petit astucien
496 Messages
| re et merci Bérylion je viens de faire ta procédure , comme cela ne fonctionnait pas , j'ai fais de 1 à 25 et toujours rien, désolé pour tes efforts.. a+ |
| |
|
| Bérylion | Posté le 26/05/2008 à 13:47 |
Astucien
2329 Messages
| beaulieu a écrit :
re et merci Bérylion je viens de faire ta procédure , comme cela ne fonctionnait pas , j'ai fais de 1 à 25 et toujours rien, désolé pour tes efforts.. a+
bon, normalement ça fait le boulot pour toi : http://cjoint.com/?fAnPCVT3vU tu clic sur le lien, tu ouvres le fichier et la ça va t'afficher un message d'avertissement : faut cliquer sur "activer ce contenu"
si tout se passe bien, tu vas avoir un message pour supprimer ta commande ; si rien se passe, tu reviens et on verra ce qu'on peu faire ?!
__________________________________________________________________________________ si y'a d'autres amateurs je mets le code en ligne puisque le lien sera pas permanent :
VBA word Sub suppr_Bab() For Each cb In Application.CommandBars For Each ctrl In cb.Controls If ctrl.Caption = "Translate with &Babylon" Then R = MsgBox("Voulez vous supprimer définitivement le contrôle" & Chr(13) & ctrl.Caption & Chr(13) & "de la barre d'outils" & Chr(13) & cb.Name, vbYesNo) If R = vbYes Then Application.CommandBars(cb.Index).Controls(ctrl.Index).Delete Exit Sub End If Next Next End Sub
|
| |
|
| beaulieu | Posté le 26/05/2008 à 15:26 |
Petit astucien
496 Messages
| re et merci Bérylion mais bon avec ta derniére procédure j'ouvre 1 fichier qui est en somme la page de Word , mais je n'ai pas de message, désolé. a+ |
| |
|
| Bérylion | Posté le 26/05/2008 à 16:39 |
Astucien
2329 Messages
| beaulieu a écrit :
re et merci Bérylion mais bon avec ta derniére procédure j'ouvre 1 fichier qui est en somme la page de Word , mais je n'ai pas de message, désolé. a+

j'ai oublié de te dire qu'il faut appuyer sur ALT+F8, choisir suppr_Bab et cliquer sur "exécuter"...

|
| |
|
| beaulieu | Posté le 26/05/2008 à 17:05 |
Petit astucien
496 Messages
| re et merci encore Bérylion Mais bon, je fais comme ta procédure et j'obtiens comme ci dessus, dur dur non.... j'ai même supprimer, et cette saloperie reviens dans Word 

|
| |
|
| Bérylion | Posté le 26/05/2008 à 17:34 |
Astucien
2329 Messages
| beaulieu a écrit :
re et merci encore Bérylion Mais bon, je fais comme ta procédure et j'obtiens comme ci dessus, dur dur non.... j'ai même supprimer, et cette saloperie reviens dans Word 

tu y es presque !!
faut baisser ton niveau de sécurité des macros (mettre sur moyen), et à l'ouverture cliquer sur "activer le contenu"
ensuite, tu peux exécuter la macro.
Courage...
|
| |
|
| beaulieu | Posté le 26/05/2008 à 17:49 |
Petit astucien
496 Messages
| re , mais j'ai peu de courage., bon alors voila, lorsque je fais ton lien http://cjoint.com/?fAnPCVT3vU et que je fais ALT+F8 et que j'active le contenu, je fais exécuter et même supprimer, et il me propose de supprimer définitevement ma macro , je fais ok ,cela devrait donc être OK. Mias voilà lorsque je réouvre Word en par mon icone traditionelle, eh bien j'y crois pas çà ne change rien, craquant non.. |
| |
|
| beaulieu | Posté le 26/05/2008 à 17:53 |
Petit astucien
496 Messages
| 
tu me conseilles quoi pour le panneau des macros ci dessus |
| |
|
| beaulieu | Posté le 26/05/2008 à 18:32 |
Petit astucien
496 Messages
| re et pour Bérylion Bon, çà y est c'est réglé, tu es un champion toi ,et surtout tu es trés trés patient, moi je commençais à griser...... alors , j'ai soudainement eue une idée à l'étape supp_bab et faire éxécuter , en fait il faut le faire d'inombrables fois( je pense une bonne quinzaine environ .) En effet j'avais observé que la boite de message changeais, ex supprimer dans comments dans field, etc etc..... et donc à chaque fois je supprimais jusqu'a .......EH oui plus rien Tu as donc solutionné le probléme, bravo. Par contre et cela pourrait me servir pour la suite comment as tu créer http://cjoint.com/?fAnPCVT3vU avec dedans SUPP_BAB bravo à toi Bérylion, félicitations. |
| |
|
| Bérylion | Posté le 26/05/2008 à 22:10 |
Astucien
2329 Messages
| beaulieu a écrit :
re et pour Bérylion Bon, çà y est c'est réglé, tu es un champion toi ,et surtout tu es trés trés patient, moi je commençais à griser...... alors , j'ai soudainement eue une idée à l'étape supp_bab et faire éxécuter , en fait il faut le faire d'inombrables fois( je pense une bonne quinzaine environ .) En effet j'avais observé que la boite de message changeais, ex supprimer dans comments dans field, etc etc..... et donc à chaque fois je supprimais jusqu'a .......EH oui plus rien Tu as donc solutionné le probléme, bravo. Par contre et cela pourrait me servir pour la suite comment as tu créer http://cjoint.com/?fAnPCVT3vU avec dedans SUPP_BAB bravo à toi Bérylion, félicitations.

tu vois, quand tu veux... 
(pour la création, tu fais ALT+F11, un clic droit sur ton doc : nouveau->module, et en avant la musique...; quand c'est au point, ALT+F11, CTrL+S)
au passage, pense à cocher "résolu" 
|
| |
|
| Bérylion | Posté le 26/05/2008 à 23:40 |
Astucien
2329 Messages
| beaulieu a écrit :
en fait il faut le faire d'inombrables fois( je pense une bonne quinzaine environ .
dans ce cas, il faut supprimer la ligne "Exit sub" de mon code.
j'ai fait stopper la moulineuse à la 1ere occurence paske tu ne parlais que d'une seule commande à faire sauter. en supprimant cette ligne, tu balayes tout en un seul passage...

|
| |
|
| mister meth | Posté le 27/05/2008 à 09:17 |
Petit astucien
43 Messages
| Salut, essayes ceci : Cliques sur le bouton office en haut à gauche; Cliques sur Options Word; Personnaliser; Et la tu a la liste des boutons que tu peux modifier. Voilou Bonne matinée à tous. |
| |
|
| gilbert_rgi | Posté le 27/05/2008 à 09:39 |
Petit astucien
842 Messages
| mister meth a écrit :
Salut, essayes ceci : Cliques sur le bouton office en haut à gauche; Cliques sur Options Word; Personnaliser; Et la tu a la liste des boutons que tu peux modifier. Voilou Bonne matinée à tous.
Bonjour Ceci avait déjà été proposé, mais ne fonctionne pas pour les menus contextuels, par contre, il semblerait que la proposition de Bérylion ait fonctionné. Cdlt RGI |
| |
|
| beaulieu | Posté le 27/05/2008 à 10:00 |
Petit astucien
496 Messages
| re et bonjour à tous, En effet la solution de Bérylion est la seule qui est fonctionner. le reste à été déja fait mais sans succés. bonne journée à tous @+ cordialement |
| |
|
|
| Haut de la page |