以文本方式查看主题

-  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=159983)
--  作者：李孝春
--  发布时间：2021/1/16 11:24:00
--  word文件加密后 怎么修改红色部分进行解密呢？当前解密老提示错误。
word文件加密后  怎么修改红色部分进行解密呢？
在解密前先判断是否有密码保护，如果有就解密，如果没有就不解密。
Dim app As New MSWord.Application
Dim doc = app.Documents.Open("C:\\Users\\Administrator\\Desktop\\2.doc")
doc.unprotect(Password:="123456")
\'doc.Protect (Password:="123456", NoReset:=False, Type:=MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)
Doc.saved = True
App.Visible = True

图片点击可在新窗口打开查看此主题相关图片如下：202111517565760444.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2021/1/16 15:08:00
--  
Dim doc = app.Documents.Open("C:\\Users\\Administrator\\Desktop\\2.doc")
    If doc.HasPassword
        doc.Password = Nothing
    End If
    If doc.ProtectionType <> MSWord.WdProtectionType.wdNoProtection
        doc.Unprotect(Password:="123456")
    End If