> Tous les forumsBureautique

 Comment ajouter au menu contextuel dans WOrd 2007Sujet résolu
Statut du sujet : RESOLU Imprimer
 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

 Afficher le profil de beaulieu Envoyer un message privé à beaulieu
 
 
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"

Afficher le profil de Bérylion Voir la configuration de BérylionEnvoyer un message privé à Bérylion
 Revenir en haut de la page
 usularrakis  Posté le 26/05/2008 à 08:27  
Astucien


2534 Messages

salut

une piste ICI

Afficher le profil de usularrakisEnvoyer un message privé à usularrakis
 Revenir en haut de la page
 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.

Afficher le profil de beaulieu Voir la configuration de beaulieuEnvoyer un message privé à beaulieu
 Revenir en haut de la page
 Bérylion  Posté le 26/05/2008 à 11:48  
Astucien


2329 Messages

Salut
"à l'ancienne" ça pourrait donner un truc du genre :
VBA word
  1. Sub test()
  2. Application.CommandBars("Text").Controls(14).Delete temporary:=True
  3. 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
  1. Sub test()
  2. Application.CommandBars("Text").Reset
  3. End Sub

Bonne chance...

Afficher le profil de Bérylion Voir la configuration de BérylionEnvoyer un message privé à Bérylion
 Revenir en haut de la page
 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....

Afficher le profil de beaulieu Voir la configuration de beaulieuEnvoyer un message privé à beaulieu
 Revenir en haut de la page
 beaulieu  Posté le 26/05/2008 à 11:59  
Petit astucien


496 Messages
ET OU EST VBA WORD, dans quoi? merci d'avance
Afficher le profil de beaulieu Voir la configuration de beaulieuEnvoyer un message privé à beaulieu
 Revenir en haut de la page
 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...]
Afficher le profil de Bérylion Voir la configuration de BérylionEnvoyer un message privé à Bérylion
 Revenir en haut de la page
 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+

Afficher le profil de beaulieu Voir la configuration de beaulieuEnvoyer un message privé à beaulieu
 Revenir en haut de la page
 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
  1. Sub suppr_Bab()
  2. For Each cb In Application.CommandBars
  3. For Each ctrl In cb.Controls
  4. If ctrl.Caption = "Translate with &Babylon" Then
  5. 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)
  6. If R = vbYes Then Application.CommandBars(cb.Index).Controls(ctrl.Index).Delete
  7. Exit Sub
  8. End If
  9. Next
  10. Next
  11. End Sub

Afficher le profil de Bérylion Voir la configuration de BérylionEnvoyer un message privé à Bérylion
 Revenir en haut de la page
 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+

Afficher le profil de beaulieu Voir la configuration de beaulieuEnvoyer un message privé à beaulieu
 Revenir en haut de la page
 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"...



Afficher le profil de Bérylion Voir la configuration de BérylionEnvoyer un message privé à Bérylion
 Revenir en haut de la page
 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

Afficher le profil de beaulieu Voir la configuration de beaulieuEnvoyer un message privé à beaulieu
 Revenir en haut de la page
 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...



Afficher le profil de Bérylion Voir la configuration de BérylionEnvoyer un message privé à Bérylion
 Revenir en haut de la page
 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..

Afficher le profil de beaulieu Voir la configuration de beaulieuEnvoyer un message privé à beaulieu
 Revenir en haut de la page
 beaulieu  Posté le 26/05/2008 à 17:53  
Petit astucien


496 Messages

tu me conseilles quoi pour le panneau des macros ci dessus

Afficher le profil de beaulieu Voir la configuration de beaulieuEnvoyer un message privé à beaulieu
 Revenir en haut de la page
 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.

Afficher le profil de beaulieu Voir la configuration de beaulieuEnvoyer un message privé à beaulieu
 Revenir en haut de la page
 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"


Afficher le profil de Bérylion Voir la configuration de BérylionEnvoyer un message privé à Bérylion
 Revenir en haut de la page
 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...






Afficher le profil de Bérylion Voir la configuration de BérylionEnvoyer un message privé à Bérylion
 Revenir en haut de la page
 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.

Afficher le profil de mister meth Voir la configuration de mister methEnvoyer un message privé à mister meth
 Revenir en haut de la page
 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

Afficher le profil de gilbert_rgi Voir la configuration de gilbert_rgiEnvoyer un message privé à gilbert_rgi
 Revenir en haut de la page
 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

Afficher le profil de beaulieu Voir la configuration de beaulieuEnvoyer un message privé à beaulieu
 Revenir en haut de la page
Haut de la page 
Inscrivez-vous !
- Posez vos questions

- Résolvez vos problèmes

- Aidez les autres

- Participez et créez vos discussions

- Dialoguez en privé avec d'autres membres

- Suivez vos sujets préférés

- Affichez les signatures des membres

TOUT EST GRATUIT !

Je crée mon compte




Vous avez besoin d'aide ?
Des centaines d'experts sont à votre disposition sur les forums PC Astuces pour vous aider gratuitement, 24h/24, 7j/7.

Les derniers sujets résolus !
 

 > Tous les forumsBureautique

 
Forum PC Astuces© 1997-2008 WebastucesAller en haut de la page