Public Sub OpenTemplate()
'
' Macro1 Macro
'
'
    Documents.Add Template:= _
        "C:\Users\paul.muldoon\Documents\Custom Office Templates\Blank_Report_Template.dotm" _
        , NewTemplate:=False, DocumentType:=0
End Sub

Sub AutoExec()
     With Application
         ' \\ Do customization in THIS document
         ' .CustomizationContext = ThisDocument
         
         ' \\ Add keybinding to this document Shorcut: Control-Alt+L
        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyL), _
        KeyCategory:=wdKeyCategoryCommand, _
        Command:="OpenTemplate"
   End With
End Sub