请教 用COM怎么实现往word文档里面加文字水印

[ma_nong]

如题
怎么用com接口往word文档里面加文字水印，用哪个api可以实现，或者没有接口。
谢谢了

这是我录制的添加文字水印的宏
Sub 宏1()
'
' 宏1 宏
'
'
ActiveDocument.AttachedTemplate.BuildingBlockEntries("严禁复制 1").Insert _
Where:=Selection.Range, RichText:=True
End Sub