Sub UnProtectAllDocFiles() On Error Resume Next Const strRootPath = "D:\我的文件" ' 存放文檔的目錄 Const strPassword = "" ' 密碼 Const strNewPassword = "" '新密碼 Dim oDoc As Document Dim fso, oFolder, oFile Set fso = CreateObject("Scripting.FileSystemObject") Set oFolder = fso.GetFolder(strRootPath) For Each oFile In oFolder.Files Set oDoc = Documents.Open(FileName:=oFile.Path, PasswordDocument:=strPassword) oDoc.Saved = False oDoc.SaveAs FileName:=oFile.Path, Password:=strNewPassword, WritePassword:="" oDoc.Close Next MsgBox "完成！" End Sub

?

轉載于:https://www.cnblogs.com/oaksoft/archive/2013/01/03/2842653.html

總結

以上是生活随笔為你收集整理的批量修改WORD文档密码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。