FWIW Eu suspeito que o link de CharlieRB será mais útil, mas ...
Você pode associar estilos com um único pressionamento de tecla usando o VBA, assim: (aqui "MyCStyle" é o nome de um estilo de caractere).
Sub setupMyCStyleKey()
' You should be able to set this up for a Template.
' Here, I set it up for the Active Document
CustomizationContext = ActiveDocument
KeyBindings.Add KeyCode:=BuildKeyCode(WdKey.wdKeyBackSingleQuote), _
KeyCategory:=WdKeyCategory.wdKeyCategoryStyle, _
Command:="MyCStyle"
End Sub
' Sledgehammer
Sub ResetAllKeys()
CustomizationContext = ActiveDocument
KeyBindings.ClearAll
End Sub
No entanto, provavelmente será melhor começar a usar o recurso Back Single Quote e, em seguida, terminar usando a barra de espaços Ctrl-Ctrl. Usar a mesma chave novamente não alterna o estilo e usar qualquer outra chave apenas imporá outro estilo em vez de "reverter".
Você também pode associar uma única tecla a uma Macro usando a mesma técnica, e isso pode, em princípio, permitir que você configure a mesma chave para que ela funcione como uma alternância, mas você precisa pensar um pouco sobre como ele vai funcionar (por exemplo, e se você clicar em algum outro lugar no documento e digitar essa chave).