类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
我用VB实现了对word文档的保护功能以后，用ActiveDocument.Unprotect Password.Text命令无法解除文档保护，这是怎么回事？？还有，如何实现对WORD文档中的图片设置图片版式为衬于文字下方？我用录制宏的方式发现这个功能不让录。
网友回答：
expression.UnProtect(Password)
expression 必需。该表达式返回一个 Document 对象。
Password Variant 类型，可选。用于保护文档的口令字符串。口令是区分大小写的。如果用户在使用一篇设置有口令的文档时没有提供正确的口令，就会显示一个对话框，提示用户输入口令。
UnProtect 方法示例
本示例解除对活动文档的保护，并以“Blue”为密码。如果文档有密码，则显示一个对话框提醒用户输入密码。
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:="Blue"
End If
本示例解除对活动文档的保护。然后插入文本并对文档进行修订保护。
Set aDoc = ActiveDocument
If aDoc.ProtectionType <> wdNoProtection Then
aDoc.Unprotect
Selection.InsertBefore "department six"
aDoc.Protect Type:=wdAllowOnlyRevisions, Password:="Blue"
End If
设置shape的ZOrder属性就能控制它的前后位置