Set WordApp = CreateObject("Word.Application")
        Set WordDoc = WordApp.Documents.Open(Datei)
 
        WordApp.Visible = True
 
        WordDoc.Unprotect ("1234567890")
        WordDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
        WordDoc.ActiveWindow.Selection.HeaderFooter.Shapes.AddTextEffect( _
          PowerPlusWaterMarkObject1, "Kopie", "Times New Roman", 1, False, _
          False, 0, 0).Select
 
        WordDoc.ActiveWindow.Selection.ShapeRange.Name = _
          "PowerPlusWaterMarkObject1"
        WordDoc.ActiveWindow.Selection.ShapeRange.TextEffect.NormalizedHeight = _
        False
        WordDoc.ActiveWindow.Selection.ShapeRange.Line.Visible = False
        WordDoc.ActiveWindow.Selection.ShapeRange.Fill.Visible = True
        WordDoc.ActiveWindow.Selection.ShapeRange.Fill.Solid
        WordDoc.ActiveWindow.Selection.ShapeRange.Fill.ForeColor.RGB = RGB(192, _
          192, 192)
        WordDoc.ActiveWindow.Selection.ShapeRange.Fill.Transparency = 0.5
        WordDoc.ActiveWindow.Selection.ShapeRange.Rotation = 315
        WordDoc.ActiveWindow.Selection.ShapeRange.LockAspectRatio = True
        WordDoc.ActiveWindow.Selection.ShapeRange.Height = CentimetersToPoints( _
          7.52)
        WordDoc.ActiveWindow.Selection.ShapeRange.Width = CentimetersToPoints( _
        15.04)
        WordDoc.ActiveWindow.Selection.ShapeRange.WrapFormat.AllowOverlap = True
        WordDoc.ActiveWindow.Selection.ShapeRange.WrapFormat.Side = wdWrapNone
        WordDoc.ActiveWindow.Selection.ShapeRange.WrapFormat.Type = 3
        WordDoc.ActiveWindow.Selection.ShapeRange.RelativeHorizontalPosition = _
          wdRelativeVerticalPositionMargin
        WordDoc.ActiveWindow.Selection.ShapeRange.RelativeVerticalPosition = _
        wdRelativeVerticalPositionMargin
        WordDoc.ActiveWindow.Selection.ShapeRange.Left = wdShapeCenter
        WordDoc.ActiveWindow.Selection.ShapeRange.Top = wdShapeCenter
        WordDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
        WordDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
        WordDoc.ActiveWindow.ActivePane.SmallScroll Down:=384
        WordDoc.Protect wdAllowOnlyComments, , "1234567890"
        WordDoc.SaveAs Datei
        WordDoc.Close
        WordApp.Quit
        Set WordDoc = Nothing
        Set WordApp = Nothing