vb.net - VB.netは単語文書に透かしを追加します

Question

ページレイアウト>ページの背景>透かしの下にあるWordの組み込み透かしツールを使用して、VB.NETを使用してMicrosoft Word 2010ドキュメントに透かしを追加しようとしています。このトピックについてかなりの調査を行いましたが、すべての結果はAddTextEffect、ヘッダーにカスタム テキストを追加するために使用することを示唆しています。

これにより視覚的には同じ結果が得られますが、Word に組み込まれている透かし機能は使用されません。Word 内の組み込みの透かし機能を無視するため、プログラムを使用して既存の透かしを削除/編集することはできません。アドバイスがあれば教えてください！

私の現在のコード:

wordDoc = wordApp.Documents.Open(file.FullName)
wordApp.Visible = True

        'Create watermark
        With wordDoc
            .Activate()
            .Sections(1).Range.Select()
            .ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekCurrentPageHeader
            .ActiveWindow.ActivePane.Selection.HeaderFooter.Shapes.SelectAll()
            .ActiveWindow.ActivePane.Selection.HeaderFooter.Shapes.AddTextEffect(Microsoft.Office.Core.MsoPresetTextEffect.msoTextEffect1, watermark, font, 1, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoFalse, 0, 0).Select()
            .ActiveWindow.ActivePane.Selection.ShapeRange.Line.Visible = False
            .ActiveWindow.ActivePane.Selection.ShapeRange.Fill.Visible = True
            .ActiveWindow.ActivePane.Selection.ShapeRange.Fill.ForeColor.RGB = RGB(colorBox.BackColor.R, colorBox.BackColor.G, colorBox.BackColor.B)
            .ActiveWindow.ActivePane.Selection.ShapeRange.Fill.Transparency = 0.5
            .ActiveWindow.ActivePane.Selection.ShapeRange.Rotation = 315
            .ActiveWindow.ActivePane.Selection.ShapeRange.LockAspectRatio = True
            .ActiveWindow.ActivePane.Selection.ShapeRange.Height = 130
            .ActiveWindow.ActivePane.Selection.ShapeRange.Left = -999995
            .ActiveWindow.ActivePane.Selection.ShapeRange.Top = -999995
            .ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekMainDocument
            .ActiveWindow.Document.Save()
        End With