¿Como asigno una funcion a una tecla CTRL en WORD?

[Aprendix ABC]

Sub Macro3()
'
' Macro3 Macro
' Macro grabada el 06/01/2006 por Azertia Usr
'
Selection.Font.Bold = wdToggle
Selection.Font.Italic = wdToggle
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Color = wdColorPink
Selection.Font.Size = 24
Selection.Font.Name = "Tahoma"

Con esto es suficiente hermano!!! muchas Gracias!!! voy a probarrrr..