以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Word保护打开  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58296)
--  作者：lesliecheung912
--  发布时间：2014/10/15 8:52:00
--  Word保护打开
在窗口中打开二进制列中的Word文档用的以下代码，想要实现打开的Word文档时受保护的，不允许修改，这样写有问题么？
If Tables("数据字典").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("数据字典").Current.DataRow
Dim fl As String =  ProjectPath &  dr("_Identify") & ".doc"
If dr.SQLLoadFile("文件",fl) Then \'如果提取文件成功

    Dim Proc As New Process \'打开文件
    Proc.File = fl
    Proc.Start()
axWebBrowser = Nothing
    Do Until axWebBrowser IsNot Nothing
        Application.DoEvents
    Loop
    Dim Doc As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)
    Dim app As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, Doc, Nothing)
    doc.Protect (Password:="", NoReset:=False, Type:= _
    MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)
Else
    Messagebox.Show("文件提取失败,可能并不存在文件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If