Discussion :

[bruxmu]

Bonjour Forum !

Au fil du temps, j'ai créé beaucoup de macros, auxquelles j'ai attribué un raccourci.
Je me rends compte que j'en ai oublié pas mal.
Y a-t-il un moyen pour les lister tous, sans devoir examiner chaque macro une par une ?

Merci !


(nota : je suis sur Word 2003)

[carden752]

Bonjour,

Voici une petite procédure qui pourrait répondre à ton besoin

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub racclav()
Dim s As String
Dim rac As KeyBinding
 
For Each rac In Application.KeyBindings
If rac.KeyCategory = wdKeyCategoryMacro Then
Debug.Print rac.Command
Debug.Print rac.KeyString & vbCr
End If
Next
End Sub

[bruxmu]

Merci pour ton aide.

J'ai collé le code à la suite de mes autres macros, mais quand je l'exécute, il ne se passe rien...
Où est-ce que j'ai faux ?

[carden752]

Bonjour,

Il écrit normalement dans la fenêtre exécution l'ensemble des macros et leur raccourci.
Pour l'écrire sur ton document séparé d'une tabulation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub racclav()
Dim s As String
Dim rac As KeyBinding
 
For Each rac In Application.KeyBindings
If rac.KeyCategory = wdKeyCategoryMacro Then
Selection.InsertAfter rac.Command & Chr(9)
Selection.InsertAfter rac.KeyString & vbCr
End If
Next
End Sub

[bruxmu]

Magique !!!

Merci beaucoup.

[Bergay]

Cette macro donne effectivement la liste de tous les raccourcis clavier.
Serait-il possible d'avoir, pour chaque raccourci, le nom de la macro auquel il renvoie ?