Your code is not specifying the style in the Header. If you want to control the look of the header then you should apply a style to that range (and make sure the style looks the way you want it to).
Code:
Word.ActiveDocument.Sections(1).Headers(1).Range.Style = "Header"