List All Commands

Excel

This code shows you the list in Excel

Public Sub BET_ListControls 
Dim control As CommandBarControls 
Dim icount1 As Integer 
Dim icount2 As Integer 
Dim icount3 As Integer 

For icount1 = 1 To CommandBars.count 
   With CommandBars.Item(icount1) 
   For icount2 = 1 To .Controls.count 
   On Error Resume Next 
      For icount3 = 1 To .Controls(icount2).Controls.count 
         ActiveCell.Value = .Name 
         ActiveCell.Offset(0, 1).Range("A1").Select 
         ActiveCell.Value = .Controls(icount2).Caption 
         ActiveCell.Offset(0, 1).Range("A1").Select 

         ActiveCell.Value = .Controls(icount2).ID 
         ActiveCell.Offset(0, 1).Range("A1").Select 
         On Error Resume Next 
         ActiveCell.Value = .Controls(icount2).Controls(icount3).Caption 
         ActiveCell.Offset(0, 1).Range("A1").Select 
         ActiveCell.Value = .Controls(icount2).Controls(icount3).ID 

         ActiveCell.Offset(1, -4).Range("A1").Select 
      Next icount3 
   Next icount2 
   End With 
Next icount1 
End Sub 

Word

Public Sub BET_ListCommands() 
   Dim control As CommandBarControls 
   Dim icount1 As Integer 
   Dim icount2 As Integer 
   Dim icount3 As Integer 

   For icount1 = 1 To CommandBars.Count 
      With CommandBars.Item(icount1) 
      For icount2 = 1 To .Controls.Count 
      On Error Resume Next 
         For icount3 = 1 To .Controls(icount2).Controls.Count 
            If InStr(.Controls(icount2).Caption, "&File") > 0 Then 
               Debug.Print .Name 
               Debug.Print .Controls(icount2).Caption 
               Debug.Print .Controls(icount2).ID 
   
               On Error Resume Next 
               Debug.Print .Controls(icount2).Controls(icount3).Caption 
               Debug.Print .Controls(icount2).Controls(icount3).ID 
               
               Debug.Print "----" 
               
            End If 
   
         Next icount3 
      Next icount2 
      End With 
   Next icount1 
End Sub 

PowerPoint

Public Sub BET_ListCommands() 
Dim control As CommandBarControls 
Dim icount1 As Integer 
Dim icount2 As Integer 

   With CommandBars("Shapes") 
      Debug.Print .Name 

      For icount1 = 1 To .Controls.Count 
      On Error Resume Next 
         For icount2 = 1 To .Controls(icount1).Controls.Count 

            Debug.Print .Controls(icount1).Caption 
            Debug.Print .Controls(icount1).Id 
   
            On Error Resume Next 
            Debug.Print .Controls(icount1).Controls(icount2).Caption 
            Debug.Print .Controls(icount1).Controls(icount2).Id 
      
         Next icount2 
      Next icount1 
   End With 
End Sub 

Application.ListCommands

Creates a new document and then inserts a table of Word commands along with their associated shortcut keys and menu assignments.

Application.ListCommands ListCommands:=False 

This includes all commands not just those with customised assignments.

Application.ListCommands ListCommands:=True