It would be easier to tell if you showed us the code.
But to create a header on all pages, you would need to use:
With ActiveDocument.Sections(1)
.PageSetup.DifferentFirstPageHeaderFooter = True
.Headers(wdHeaderFooterFirstPage).Range.InsertBefore "First Page Header
Text"
.Headers(wdHeaderFooterPrimary).Range.InsertBefore "Other Pages Header
Text"
End With
or
With ActiveDocument.Sections(1)
.PageSetup.DifferentFirstPageHeaderFooter = False
.Headers(wdHeaderFooterPrimary).Range.InsertBefore "Common Header Text"
End With
--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP