Dim wassZ1 As Shape
Dim i As Long

For i = 1 To ActiveDocument.Sections.Count
    
    With ActiveDocument.Sections(i).Headers(wdHeaderFooterPrimary).Range
            'Überprüfen ob schon ein WZ vorhanden ist, wenn ja dann löschen
            If .ShapeRange.Count > 0 Then
                .ShapeRange(1).Delete
            End If
     End With
        
        'neues Wasserzeichen einfügen
       With ActiveDocument.Sections(i)
             Set wassZ1 = .Headers(wdHeaderFooterPrimary).Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect2, _
             Text:="DRAFT1", FontName:="Arial", FontSize:=36, FontBold:=msoTrue, FontItalic:=msoFalse, _
             Left:=1, Top:=1)
       End With
    

    With wassZ1
    .Fill.Visible = msoTrue
    .Fill.Solid
    .Fill.ForeColor.RGB = RGB(192, 192, 192)
    .Fill.Transparency = 0.5
    .Line.Weight = 0.75
    .Line.DashStyle = msoLineSolid
    .Line.Style = msoLineSingle
    .Line.Transparency = 0
    .Line.Visible = msoFalse
    .LockAspectRatio = msoFalse
    .Rotation = 330
    .Height = CentimetersToPoints(8)
    .Width = CentimetersToPoints(15)
    .RelativeHorizontalPosition = _
        wdRelativeHorizontalPositionMargin
    .RelativeVerticalPosition = _
        wdRelativeVerticalPositionMargin
    .RelativeHorizontalSize = wdRelativeHorizontalSizePage
    .RelativeVerticalSize = wdRelativeVerticalSizePage
    .Left = wdShapeCenter
    .LeftRelative = wdShapePositionRelativeNone
    .Top = wdShapeCenter
    .TopRelative = wdShapePositionRelativeNone
    .WidthRelative = wdShapeSizeReativeNone
    .HeightRelative = wdShapeSizeRelativeNone
    'Vali docs
    '.IncrementLeft 120
    '.IncrementTop 280
   End With
           
    Next I