Você pode adicionar uma macro e, em seguida, atribuir um atalho de teclado a ela. Aqui está como o código macro parece (você também pode criar gravando-o).
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
Se você não souber como atribuir um atalho de teclado a uma macro: atribuir atalhos
EDIT do OP: atualizei a resposta do código para a solução completa da pergunta.