This macro is a bit of a hack in its current state but works fine, especially if you're editing the same very few files over and over again.
Basically, you need to run the AddKeyBinding() which will register the key presses. Or, add this to the load in VBa.
Within the AddKeyBinding you can see the bindings and where it exports too... As you can see, it waits for ALT + 1 and then it exports to SaveDaveCv...
I've also added ALT+2 but didn't complete the macro...
Sub AddKeyBinding()
With Application
' \\ Do customization in THIS document
.CustomizationContext = ThisDocument
' \\ Add keybinding to this document Shorcut: Alt+1
.KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKey1), _
KeyCategory:=wdKeyCategoryCommand, _
Command:="SaveDaveCv"
' \\ Add keybinding to this document Shorcut: Alt+2
.KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKey2), _
KeyCategory:=wdKeyCategoryCommand, _
Command:="SaveOtherCv" 'You need to do this
End With
End Sub
' \\ Test sub for keybinding
Sub SaveDaveCv()
ActiveDocument.ExportAsFixedFormat OutputFileName:="C:\Users\DRook\Desktop\MyCv.pdf", ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:=True, UseISO19005_1:=False
MsgBox "Saved", vbInformation, "Succes"
End Sub
Your question I guess was left quite open on purpose, as such, I've left the answer in the same manner - have fun, hack it up, make it work for what you need it to do!!