word.application 如何设置"保护文档"功能?

[xhwly]

做一个合同文本打印程序,希望在PB中调用word，把合同文本呈现给用户预览，不允许用户修改,所以希望能用代码把word工具菜单中的"保护文档"功能打开,请问在以下代码中如何实现?

//声明变量类型为OLEObject
OLEObject myword
long ll_status
//创建一OLEObject
myword=Create oleObject
//启动OLE自动化服务(即Word)，并与之建立连接。
ll_status=myword.connecttonewobject("word.Application")
if ll_status < 0 then
messagebox("错误","不能启动Word!")
else
//新增一个Word文档对象
myword.documents.add("c:\mytemplete.doc",false)
//通过赋值语句，将字串插入 mybkmark 书签位置
myword.Documents.item(1).Bookmarks.Item("合同编号").Range.Text = sle_1.text
myword.Documents.item(1).Bookmarks.Item("乙方").Range.Text = sle_2.text

//另存为 myreport.doc 文件
myword.documents.item(1).saveas("c:\myreport.doc")
//文档可见
//myword.visible=true
//文档打印
myword.printout()
myword.disconnectobject()
end if

//消去内存中的OLEObject变量
DESTROY myword

[WorldMobile]

这是excel里的，你参考一下 ole_object.Application.ActiveSheet.Protect( '12345 ',true,true,true)//对活动单元格进行保护 ole_object.Application.Activeworkbook.Protect( '12345 ',true,true)//对活动工作簿进行保护 ole_object.Application.ActiveSheet.unProtect( '12345 ')//取消对活动单元格进行保护

[WorldMobile]

用这个试一下 ole_object.Application.Activeworkbook.Protect( '12345 ',true,true)

[xhwly]

谢谢,已测试成功. //--取消模板的文档保护。 myword.Documents.item(1).UnProtect("123456") //--文档保护，防止文档修改. myword.Documents.item(1).Protect(2, true, "123456")

[xhwly]

顺便还请问一下如何禁用word的打印功能?