> Tous les forums > Forum Bureautique
 Comment ajouter au menu contextuel dans WOrd 2007Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Merens
  Posté le 25/05/2008 @ 17:26 
Aller en bas de la page 
Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien


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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

salut

une piste ICI

Merens
 Posté le 26/05/2008 à 10:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien


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

Merens
 Posté le 26/05/2008 à 11:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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

Merens
 Posté le 26/05/2008 à 11:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

ET OU EST VBA WORD, dans quoi? merci d'avance
Bérylion
 Posté le 26/05/2008 à 12:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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...]
Merens
 Posté le 26/05/2008 à 12:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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

Merens
 Posté le 26/05/2008 à 15:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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"...



Merens
 Posté le 26/05/2008 à 17:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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



Merens
 Posté le 26/05/2008 à 17:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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

Merens
 Posté le 26/05/2008 à 17:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

tu me conseilles quoi pour le panneau des macros ci dessus

Merens
 Posté le 26/05/2008 à 18:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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

Merens
 Posté le 27/05/2008 à 10:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Câble RJ45 Cat6 KabelDirekt 30M, Gigabit/LAN à 13,09 €
13,09 € 20 € -35%
@Amazon
Imprimante 3D QIDI TECH X Smart 3 (nivellement auto, 500 mm/s, Kippler, boitier fermé) à 185 €
185 € 299 € -38%
@Amazon
Carte mère MSI B550 Tomahawk à 135,99 €
135,99 € 170 € -20%
@Amazon
Casque audio sans-fil Logitech Lightspeed G435 à 39,99 €
39,99 € 65 € -38%
@Cdiscount
Alimentation modulaire MSI MAG A750GL 750W PCIE 5 à 87,40 €
87,40 € 119 € -27%
@Amazon
Ecran 27 pouces KTC M27T20 reconditionné (mini LED, QHD, IPS, 165 Hz, 1 ms, HDR10, KVM) à 169,99 €
169,99 € 299 € -43%
@Geekbuying

Sujets relatifs
Comment récupérer la barre d'outils dans Word 2007 ?
comment inserer case a cocher dans word 2007 Vista
Comment SVP insérer un signet dans Word 2007 ?
Comment insérer un son automatique dans Word 2007
Créer 1 menu Travail dans Word 2007
Texte Vertical dans Word 2007 , comment faire ?
Afficher le menu classique dans Word 2007
Comment imprimer dans Word 2007
comment insérer 1 nouvelle feuille dans word 2007
comment tracer des traits dans word 2007?
Plus de sujets relatifs à Comment ajouter au menu contextuel dans WOrd 2007
 > Tous les forums > Forum Bureautique