Shortcut to apply header style 4 (and 5, 6...)

Found it, although I did not expect the solution to be this simple. To do this, follow these steps:

  1. Right-click the Heading 4 style in the ribbon and choose 'Modify' (Or through Layout > Styles > Heading 4 > Modify
  2. In the left hand bottom corner, select 'Shortcut'
  3. Assign shortcut ⌘⌥4
  4. Repeat for Heading 5, 6...
  5. Done!