Word Formatering

denne "wdHeaderFooterFirstPage" og denne "wdHeaderFooterPrimary"
er vist ikke defineret i VBscript.

Måske kan du sætte talværdier ind istedet ?

Har prøvet med forskellige talværdier men synes ikke jeg kan fange fx: wdHeaderFooterFirstPage....

Hvad står den på, når du kører i VB ?

Her er et eksempel fra VB:

ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True
With ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage)
    .Range.InsertAfter("First Page Text")
End With

....
nu prøvede jeg lige noget vbscript som egentlig virker...

VBScript :

Headers(2) indsætter på første side.
Headers(1) indsætter på resten af siderne.

bortset fra at hvis man har flere sektioner i dokumentet, indsætter den også "wdHeaderFooterFirstPage" i starten af de andre sektioner selv om jeg har sagt :

sections(1)


hhhmmm, jeg må vidst bare sidde og prøve mig lidt frem ;-)

... men hvordan omskriver man : FirstPage:=True

Dette fungerer men er vba, ikke helt det samme, men jeg er sikker på du selv kan plukke ud.

'***************Sets Page Setup************************

   
    With ActiveDocument.PageSetup
        .TopMargin = CentimetersToPoints(3.5)
        .BottomMargin = CentimetersToPoints(3.2)
        .LeftMargin = CentimetersToPoints(2.5)
        .RightMargin = CentimetersToPoints(2.5)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(0.86)
        .FooterDistance = CentimetersToPoints(0.3)
        .PageWidth = CentimetersToPoints(21)
        .PageHeight = CentimetersToPoints(29.7)
        .DifferentFirstPageHeaderFooter = True
   
    End With
 
  '******************insert PageHeader and Footer************
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
  'indsætter hoved første side her er det lavet som en autotext,d er ligger i normaldot.
    NormalTemplate.AutoTextEntries("autotext navn").Insert Where:=Selection.Range
   
'indsætter fod på 1. side. 
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
   
    NormalTemplate.AutoTextEntries("Autotext navn").Insert Where:=Selection. _
        Range



  If oSection.PageSetup.DifferentFirstPageHeaderFooter Then
    'Different first page option is selected
    'set the header for the second page
    Set oHeader = oSection.Headers(wdHeaderFooterPrimary)
    Set oRange = oHeader.Range
    With oRange
      NormalTemplate.AutoTextEntries("Autotext navn").Insert Where:=oRange, _
                    RichText:=True
   
      oRange.Collapse direction:=wdCollapseEnd
     
End With
End If

    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

tobbi: fik du løst problemet ?

Jo tak... løste det ved at prøve mig lidt frem, og studere microsoft.com
I får lidt point for jeres tid og hjælp ;-)