请教高手!文本水印的实现问题

Question

在下想做一个对doc文档嵌入二进制序列，并检测的模块，请问应该怎样下手，有源码参考更好，谢谢

Answer 1

直接给Word文档添加水印吗？？？
录制个宏研究下VBA的代码吧。var 
oWord, oDoc: OleVariant;
begin 
 oWord := CreateOleObject(\'Word.Application\'); 
 oDoc := oWord.Documents.Open(\'C:\\Test\\a.doc\'); 
 oDoc.ActiveWindow.View.SeekView := 1;
 oDoc.ActiveWindow.ActivePane.Selection.HeaderFooter.Shapes.AddPicture('C:\Test\a.jpg',  False, True, 0, 0, 100, 100);
//添加文字的宏为以下的
{Selection.HeaderFooter.Shapes.AddTextEffect(PowerPlusWaterMarkObject1, "公司绝密", "宋体", 1,False, False, 0, 0)；}
oDoc.Close(True); 
oWord.Quit(False); 
end; 网上找了个