传统的水印通常只出现在页面中央或角落,容易被忽略。而铺满整页的水印可以:
适用于 Microsoft Word(Office 365 / 2019 / 2016 等)
自定义水印...适用于需要自定义水印密度或特殊排版的场景。
适合需要批量处理大量文档的用户。
Alt + F11 打开VBA编辑器
Sub AddTiledWatermark()
    Dim i As Integer, j As Integer
    Dim shp As Shape
    For i = 0 To 3 ' 行
        For j = 0 To 2 ' 列
            Set shp = ActiveDocument.Sections(1).Headers(1).Shapes.AddTextEffect _
                (msoTextEffect1, "机密", "Arial", 100, msoFalse, msoFalse, _
                j * 300, i * 200)
            With shp
                .Fill.Transparency = 0.9 ' 透明度
                .Line.Visible = msoFalse
                .Rotation = 30
            End With
        Next j
    Next i
End Sub
        
        运行宏后,水印将按设定网格铺满页面。