wdHeaderFooterFirstPage oder nicht wdHeaderFooterFirstPage

Question

Hallo zusammen,

ich hoffe, ich bin im richtigen Forum. Sonst bitte verschieben.

Gerade programmiere ich einen klassiker in Word 2010 VBA; Falzlinien.

Obwohl ich eindeutig wdHeaderFooterFirstPage gesagt habe, erscheinen die Falzlinien überall, aber nicht auf der ersten seite. Aber ich möcht sie nur auf der ersten Seite. Also genau das gegenteil dessen, was da ist.  

Warum? für Hilfe wäre ich sehr dankbar

Jürgen

Public Sub Einfuegen(ByRef doc As Word.Document, falz As Single)
    Dim hdr As Word.HeaderFooter
    Dim shp As Shape
    Dim linien(1 To 3) As Single
    Dim i As Long
    
    With doc.Sections(1).PageSetup
    
        .DifferentFirstPageHeaderFooter = True
        .OddAndEvenPagesHeaderFooter = False
        
    End With
    Set hdr = doc.Sections(1).Headers(wdHeaderFooterFirstPage)
    
    For i = hdr.Shapes.Count To 1 Step -1
        Set shp = hdr.Shapes(i)
        If (shp.Type = msoLine) _
            And (Round(PointsToCentimeters(shp.Left), 1) = 0.7) _
            And (Round(PointsToCentimeters(shp.Width), 1) = 0.5) _
            And (Round(PointsToCentimeters(shp.Height), 1) = 0) Then
            shp.Delete
        End If
    Next i
    
    linien(1) = MillimetersToPoints(falz)
    linien(2) = MillimetersToPoints(148)
    linien(3) = MillimetersToPoints(falz + 105)
    
    For i = 1 To 3
        With hdr.Shapes.AddLine(BeginX:=MillimetersToPoints(7), _
                                BeginY:=linien(i), _
                                EndX:=MillimetersToPoints(12), _
                                EndY:=linien(i)).Line
            .Weight = 0.5
            .ForeColor.RGB = RGB(128, 128, 128)
        End With
    Next i
    
End Sub

Answer 1

Nachtrag:

das geschildert Problem tritt nur auf, wenn sich das Makro in einer .dot also im Kompatibilitätsmodus befindet. In einer .dotm laden die Falzlinien dort, wo ich sie erwarte. Auf der ersten Seite.