以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于用狐表打开Word并修改  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105362)
--  作者：做自己
--  发布时间：2017/8/17 17:49:00
--  关于用狐表打开Word并修改
我想问下老师，用狐表打开Word文档，并安排有权限的人可以修改，怎么实现呢
--  作者：有点甜
--  发布时间：2017/8/17 19:17:00
--  

Dim app As New MSWord.Application

try
    Dim doc = app.Documents.Open("d:\\test.doc")
    If doc.ProtectionType <> 3 Then
        doc.Protect (Password:="123456", NoReset:=False, Type:=MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)
        app.Documents.save
    End If
   
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
   

   
End try