Bonjour,
Dans son message, < Chad DeMeyer > écrivait :
In this message, < Chad DeMeyer > wrote:
|| Jean-Guy,
||
|| To avoid having to look at all the commands in the keyboard dialog, you
can
|| get a listing of all the keybindings with the following macro:
||
|| Public Sub ShowKeyBindings()
|| Dim kb As KeyBinding
||
|| Selection.InsertAfter KeyBindings.Count & _
|| " key bindings in context: " & CustomizationContext & vbCr
||
|| Selection.Collapse wdCollapseEnd
|| For Each kb In KeyBindings
|| Selection.InsertBefore kb.KeyString & vbTab & _
|| kb.Command & " (" & kb.CommandParameter & ")" & vbCr
|| Selection.Collapse wdCollapseEnd
|| Next kb
|| End Sub
||
I maybe wrong (as I am not all that familiar with KeyBindings in VBA), I
believe that this code only lists customized KeyBindings.
When I run it I get:
1 key bindings in context: Normal.dot
Alt+Ctrl+D InsertDateTime ()
But if I run:
Application.ListCommands ListAllCommands:=True
then I get the full list (including all the Add-ins). I think that if you
want only Word's commands, you have to set ListAllCommands to False.
With this I found that in the French version of Word, ALT-X is ALT-C.
Thanks for the idea!
--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site:
http://www.word.mvps.org