View Single Post
  #4   Report Post  
Posted to microsoft.public.word.pagelayout
Suzanne S. Barnhill
 
Posts: n/a
Default template - header setting gets reversed

I would start from scratch, eliminating the code, and use the headers Word
provides for the purpose. In addition to the First Page Header and Header,
you can also, by checking "Different odd and even" as well as "Different
first page" (on the Layout tab of Page Setup) have an Odd Page Header and
Even Page Header. For more on how to set this up, see
http://sbarnhill.mvps.org/WordFAQs/Letterhead.htm and
http://sbarnhill.mvps.org/WordFAQs/HeaderFooter.htm

Let me emphasize that even a single-page template can contain up to three
headers. Even though they can't be seen until pages are added, Word will
remember the headers you have created.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

wrote in message
oups.com...
The template seems to use a section/page break. I found the following
code.

Sub pagina2()
Selection.InsertBreak Type:=wdPageBreak
ActiveWindow.ActivePane.View.Type = wdPageView
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.Font.Name = "Arial"
Selection.Font.Size = 8
Selection.TypeText Text:="Blad "
ActiveWindow.Selection.Fields.Add Range:=Selection.Range,
Type:=wdFieldEmpty, Text:="PAGE ", PreserveFormatting:=True
Selection.TypeText ", brief d.d. " & strDatum & vbCr
If strBetreft "" Then
Selection.TypeText "Inzake " & strBetreft
End If

End Sub


I think I can rule out 'typing on the wrong side'. If that was the case
this problem would occure on every computer.