Hi Trond Arve,

I'm sorry, I read your original question too quickly, seeing "header" where
you wrote "heading".

The answer is yes, the approach can be adapted to prevent users from putting
the cursor in any paragraph having one of a set of styles. The event handler
can be rewritten to something like this:

Private Sub wdApp_WindowSelectionChange(ByVal Sel As Selection)
   'quit if active doc isn't attached to this template
   If ActiveDocument.AttachedTemplate <> ThisDocument Then Exit Sub
   'get out of the heading if we're in it
   Select Case Sel.Style
   Case "Heading 1", "Heading 2"
       With Sel
        .Paragraphs(1).Range.Select
        .Collapse wdCollapseStart
        If .Paragraphs(1).Range.End = ActiveDocument.Range.End Then
           .MoveUp Unit:=wdParagraph, Count:=1
        Else
           .MoveDown Unit:=wdParagraph, Count:=1
        End If
       End With
       Exit Sub
   Case Else
   End Select
End Sub

There will be a problem if two or more paragraphs at the end of the document
have styles that are in the Case list; the second-to-last paragraph can then
be modified. Design the template to avoid that situation.

I'm not sure how long you can make the list of styles without having a
noticeable impact on Word's performance.

If you object to the flash that may appear as the macro selects the full
paragraph and then collapses the selection, write back and I'll show you how
to use a Range object instead.