如何用VBScript程序化移除并替换Word文档中的水印？

核心思路 #

Word的文本水印本质是页眉中的分组形状（Group），而非单个独立形状。你遇到的多个PowerPlusWaterMarkObject是分组内的子元素，直接删除会误操作。正确做法是定位到包含水印的分组，修改其中的文本框内容，同时保留原水印的格式属性。

完整实现代码 #

Sub UpdateWatermark(lDoc)
    Dim section, hdr, sp, groupShape, textShape
    Dim foundWatermark : foundWatermark = False
    
    ' 遍历所有节和页眉
    For Each section In lDoc.Sections
        For Each hdr In section.Headers
            ' 查找水印分组形状
            For Each sp In hdr.Shapes
                ' 判断是否为水印分组（Name包含PowerPlusWaterMarkObject且是Group类型）
                If InStr(sp.Name, "PowerPlusWaterMarkObject") > 0 And sp.Type = msoGroup Then
                    Set groupShape = sp
                    ' 遍历分组内的子形状，找到文本框
                    For Each textShape In groupShape.GroupItems
                        If textShape.Type = msoTextBox Then
                            ' 修改水印文本（替换成你需要的新文本）
                            textShape.TextFrame.TextRange.Text = "新的水印文本"
                            
                            ' 可选：读取并保留原水印属性（字体、颜色、旋转等）
                            ' originalFont = textShape.TextFrame.TextRange.Font.Name
                            ' originalSize = textShape.TextFrame.TextRange.Font.Size
                            ' originalColor = textShape.TextFrame.TextRange.Font.Color
                            ' originalRotation = groupShape.Rotation
                            
                            foundWatermark = True
                            Exit For
                        End If
                    Next
                    If foundWatermark Then Exit For
                End If
            Next
            If foundWatermark Then Exit For
        Next
        If foundWatermark Then Exit For
    Next
    
    ' 如果找不到现有水印，按照原风格创建新水印
    If Not foundWatermark Then
        CreateWatermarkWithOriginalStyle lDoc, "新的水印文本"
    End If
End Sub

' 辅助函数：创建与默认水印属性一致的新水印
Sub CreateWatermarkWithOriginalStyle(lDoc, newText)
    Dim section, hdr, newShape
    
    For Each section In lDoc.Sections
        For Each hdr In section.Headers
            ' 创建文本水印（模拟Word原生水印结构）
            Set newShape = hdr.Shapes.AddTextEffect( _
                PresetTextEffect:=msoTextEffect1, _
                Text:=newText, _
                FontName:="宋体", ' 替换成原水印字体
                FontSize:=48, ' 替换成原水印字号
                FontBold:=False, _
                FontItalic:=True, _
                Left:=0, _
                Top:=0 _
            )
            
            ' 设置水印格式（匹配原水印默认属性）
            With newShape
                .Name = "PowerPlusWaterMarkObject"
                .Fill.Solid
                .Fill.ForeColor.RGB = RGB(192, 192, 192) ' 灰色
                .Line.Visible = msoFalse
                .Rotation = -45 ' 斜向角度
                .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                .Left = (lDoc.PageSetup.PageWidth - .Width) / 2
                .Top = (lDoc.PageSetup.PageHeight - .Height) / 2
                .WrapFormat.Type = wdWrapBehind
            End With
            
            ' 分组形状，模拟Word原生水印结构
            newShape.Group
            Exit For
        Next
        Exit For
    Next
End Sub

关键代码解释 #

1. 定位真实水印：通过判断形状类型为msoGroup且名称包含PowerPlusWaterMarkObject，精准定位到水印分组，避免误删子元素。
2. 直接修改文本：遍历分组内的子形状，找到msoTextBox类型元素后，直接修改其文本内容，无需删除重建。
3. 保留原属性：如果需要完全继承原水印的字体、颜色、旋转角度等，可读取代码中注释的属性值，修改文本后重新赋值。
4. 降级兼容：如果文档中无有效水印，自动调用辅助函数创建风格一致的新水印。

注意事项 #

• 确保脚本已获取打开的Word文档对象（lDoc参数），运行前避免文档处于只读状态。
• 如需同步修改所有节的水印，可去掉代码中的Exit For语句。
• 原水印的字体、颜色等属性可通过textShape.TextFrame.TextRange.Font系列属性读取，按需调整新文本格式。

内容的提问来源于stack exchange，提问作者siriusfox