Hi,
versuche es doch mit diesem Makro:
Sub FalzUndLochmarkeEinfügen()
Dim oKz As HeaderFooter, FM As Shape, LM As Shape
Set oKz = ActiveDocument.Sections(1).Headers(1)
'Die Länge des Striches (Faltmarke) beträgt 1,2 - 0,5 = 0,7 cm
Set FM = oKz.Shapes.AddLine(CentimetersToPoints(0.5), _
CentimetersToPoints(10.4), _
CentimetersToPoints(1.2), _
CentimetersToPoints(10.4))
FM.Line.Weight = 0.25
FM.LockAnchor = True
'Die Länge des Striches (Lochmarke) beträgt 0,9 - 0,5 = 0,4 cm
Set LM = oKz.Shapes.AddLine(CentimetersToPoints(0.5), _
CentimetersToPoints(14.85), _
CentimetersToPoints(0.9), _
CentimetersToPoints(14.85))
LM.Line.Weight = 0.25
LM.LockAnchor = True
End Sub
Viel Spaß!