1

我正在尝试使用 VB.NET 使用位于页面布局 > 页面背景 > 水印下的 Word 内置水印工具向 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
4

0 回答 0