Respuestas:
Puede agregar una macro y luego asignarle un atajo de teclado. Así es como se ve el código de macro (también puede crearlo grabándolo).
Sub Movebetweenheaders()
'
' Movebetweenheaders Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Style = Selection.Style
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub
Sub MovebetweenheadersBack()
'
' MovebetweenheadersBack Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Style = Selection.Style
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = False
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub
Si no está seguro de cómo asignar un atajo de teclado a una macro: asigne atajos
EDITAR desde OP: Actualicé el código de respuesta a la solución completa a la pregunta.