The Keyboard assignments is still there on my recent version of Word.
And getting a report of the existing assignments in a particular template might be along the following lines when you put this code in the actual template you want to interrogate.
Code:
Sub GetKeyboardAssignments()
Dim aKB As KeyBinding, aKBs As KeyBindings
CustomizationContext = ThisDocument ' or NormalTemplate
Set aKBs = Application.KeyBindings
For Each aKB In aKBs
Debug.Print aKB.Context, aKB.KeyString, aKB.Command, aKB.CommandParameter
Next aKB
'this line shows how to add a new keyboard assignment
aKBs.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyControl, wdKeyD), KeyCategory:=wdKeyCategoryCommand, Command:="GetKeyboardAssignments"
End Sub