Dim wApp As word.Application = Globals.ThisAddIn.Application
        Dim wDoc As word.Document = wApp.ActiveDocument               

		With wDoc.Sections(1).Headers(word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Shapes
                    With .AddTextEffect(MsoPresetTextEffect.msoTextEffect1, Text:=txtWasserzeichen.Text, FontName:="Arial Black", FontSize:=28, FontBold:=MsoTriState.msoTrue, FontItalic:=MsoTriState.msoFalse, Left:=0, Top:=0, Anchor:=wDoc.Sections(1).Headers(word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range)
                        ' Nachträglich von mir hinzugefügt. Hat das einen Effekt?
                        .TextEffect.Alignment = MsoTextEffectAlignment.msoTextEffectAlignmentCentered

                        .RelativeVerticalPosition = word.WdRelativeVerticalPosition.wdRelativeVerticalPositionMargin
                        .RelativeHorizontalPosition = word.WdRelativeHorizontalPosition.wdRelativeHorizontalPositionMargin

                        .Left = word.WdShapePosition.wdShapeCenter
                        .Top = word.WdShapePosition.wdShapeCenter

                        .Rotation = -45
                        .Name = "Wasserzeichen"

                        .Fill.Visible = MsoTriState.msoTrue
                        .Fill.Solid()
                        .Fill.ForeColor.RGB = RGB(200, 200, 200)
                        .Fill.Transparency = 0.5
                        .Line.Weight = 0.75
                        .Line.DashStyle = MsoLineDashStyle.msoLineSolid
                        .Line.Style = MsoLineStyle.msoLineSingle
                        .Line.Transparency = 0.0#
                        .Line.Visible = MsoTriState.msoFalse
                        .LockAspectRatio = MsoTriState.msoFalse
                        '.LockAnchor = False
                    End With
                End With