Discussion :

[sanfric]

Bonjour,

Je poursuis ma migration vers Word 2007 en traînant une série de macros, certaines datant de ...1995. Elles fonctionnent correctement mais je ne puis en créer d'autres sur le même modèle.
Ainsi, j'avais la macro suivante qui insérait une commande supplémentaire dans le menu contextuel "Text" : elle déclenchait une seconde macro mettant la première lettre du mot en majuscule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub MAJCLIC()
Rem Sub addtoshortcutmenu()
Dim MonControl As CommandBarButton
 
    Set MonControl = CommandBars("Text").Controls.Add(Type:=msoControlButton, Before:=4)
    MonControl.OnAction = "MAJ"
    MonControl.Caption = "MAJ"
End Sub

J'aurais bien voulu créer une autre commande analogue pour passer toutes les lettres d'un mot en minuscules. Mais le code n'a plus l'air d'être pris en compte dans Word 2007. Un connaisseur peut-il soit m'aider à corriger ce qui ne va pas dans ce code ou m'orienter vers un tutoriel ou un forum à ce sujet.

[JackOuYA]

Bonjour,


Je viens de tester sans probléme ton code sous 2007..

j'ai juste rajouter une fonction Maj .. afin de tester son appel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Maj()
  Selection = UCase(Selection)
 End Sub

Quel est ton probléme exactement ?

[sanfric]

Bonjour,
J'ai réinitialisé la barre "Text" d'origine avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub YANettoie()
Dim Cbar As CommandBar
Dim YaBo
  For Each Cbar In CommandBars
     For Each YaBo In Cbar.Controls
       If YaBo.Tag = "JacKouYA" Then
          YaBo.Delete
        End If
     Next
   Next
End Sub

puis j'ai à nouveau exécuté mes macros et mes ajouts sont venus s'ajouter au menu Mso. j'avais oublié un peu la procédure : il suffit de cliquer une fois sur la macro pour l'activer. Donc affaire classée.