Esta macro é um hack em seu estado atual, mas funciona bem, especialmente se você estiver editando os mesmos poucos arquivos repetidas vezes.
Basicamente, você precisa executar o AddKeyBinding (), que registrará as teclas pressionadas. Ou adicione isso à carga no VBa.
Dentro do AddKeyBinding você pode ver as ligações e onde exporta também ... Como você pode ver, ele aguarda ALT + 1 e então exporta para SaveDaveCv ...
Eu também adicionei ALT + 2 mas não completei a 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
Sua pergunta, eu acho, foi deixada bem de propósito, como tal, deixei a resposta da mesma maneira - divirta-se, faça o trabalho, faça o que você precisa fazer !!