[VBA] Urgent - Comment modifier le menu contextuel de Word? [résolu]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Urgent - Comment modifier le menu contextuel de Word? [résolu]

spectro

Lisez et meditez...

Salut,
Voilà je souhaite ajouter des options au menu contextuel de Word mais je ne sais pas comment le manipuler.
Avec les autres menus, pas de probleme, mais la j'ai pas son nom et je vois pas comment faire.
Merci d'avance !

--> c bon j'ai trouvé.

Message édité par spectro le 22-07-2002 à 17:56:47

Publicité

fifiz

Maintenant explique ... :jap:

Harkonnen

Modérateur
Un modo pour les bannir tous

Ca m'énerve ce genre de post à la con ou le gus se barre comme un malpropre sans dire ce qu'il a fait !!! personne ne pense que ça peut interesser du monde ou quoi ??? :fou:

:gun:

---------------
J'ai un string dans l'array (Paris Hilton)

spectro

Lisez et meditez...

Harkonnen a écrit a écrit :

Ca m'énerve ce genre de post à la con ou le gus se barre comme un malpropre sans dire ce qu'il a fait !!! personne ne pense que ça peut interesser du monde ou quoi ??? :fou:

Super, excuse moi mon grand, n'ayant vu aucune reponse je pensais pas que ca interresserait du monde. Deuxiemement rien ne t'empeche de demander gentiment !
J'avais oublié d'activer "etre prevenu par email en cas de reponse" je m'en excuse donc et j'espère que t'as pas trop attendu.

Code :

Dim Pop_upMenu As CommandBar
' On se place sur le bon menu contextuel
Set Pop_upMenu = CommandBars("text" )
' Reinitialisation du menu Pop-Up
Pop_upMenu.Reset
' ---> Les options du 1er niveau
Set myTools = Pop_upMenu.Controls.Add(Type:=msoControlPopup)
Set style1 = myTools.Controls.Add(Type:=msoControlButton, Before:=1, Parameter:="G_Sur-Titre" )
Set style2 = myTools.Controls.Add(Type:=msoControlButton, Before:=2, Parameter:="G_Titre" )
' etc...

En fait le seul probleme que j'avais c'est simplement que je ne savais pas que le menu contextuel de Word s'appellait "text" et donc je n'arrivait pas a bosser dessus.
Voilà

Harkonnen

Modérateur
Un modo pour les bannir tous

:jap:

---------------
J'ai un string dans l'array (Paris Hilton)

snakeshit_bzh

Bonjour à tous,

Le bout de code ci-dessus m'a donné une piste pour réaliser un bouton dans un menu contextuel...seulement moi j'avais besoin de connaître le nom du menu contextuel des cellules d'un tableau word :pt1cable:

En cherchant je suis tombé sur un bout de code de MS qui permet de récupérer les noms des menus contextuels, et comme j'ai un peu galéré pour le trouver, je viens le partager avec vous pour ceux qui aurait des besoins similaires:

Code :

'Pour faire apparaître les noms des menus
Sub Add_Name_To_Contextmenus()
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
With Cbar
If .Type = msoBarTypePopup Then
On Error Resume Next
With .Controls.Add(Type:=msoControlButton)
.Caption = "Name for VBA = " & Cbar.Name
.Tag = "NameButtonInContextMenu"
End With
On Error GoTo 0
End If
End With
Next
End Sub
'Pour faire disparaître les noms des menus
Sub Delete_Name_From_Contextmenus()
Dim Cbar As CommandBar
Dim ctrl As CommandBarControl
For Each Cbar In Application.CommandBars
With Cbar
If .Type = msoBarTypePopup Then
For Each ctrl In .Controls
If ctrl.Tag = "NameButtonInContextMenu" Then
ctrl.Delete
End If
Next ctrl
End If
End With
Next
End Sub

Pour plus d'infos: http://msdn.microsoft.com/fr-fr/li [...] e.14).aspx

Enjoy

Message édité par snakeshit_bzh le 10-09-2013 à 10:27:29

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Urgent - Comment modifier le menu contextuel de Word? [résolu]

Sujets relatifs
[VB] Sous Word, Comment editer directement le PiedDePage ?	[HTML et JS] Un menu qui s'affiche sur 2 frames à la fois...
[Java] Structure de graphes [RESOLU]	[resolu] renvoyer les termes de combinaison des C(n,k)
[HTML, JS]Eviter l'effet mosaique sur une petite image ? [resolu]	[MySQL] Requete de fou qui bugge - résolu
[MySQL] le même champs, 2 fois dans la même requête - résolu	[VBA] Copier ou déplacer des fichiers ?
[VBA] Comment créer un boite de dialogue fichier/parcourir ?	Menu Deroulant please Help me !
Plus de sujets relatifs à : [VBA] Urgent - Comment modifier le menu contextuel de Word? [résolu]

Page générée en 0.047 secondes