摘要： Sub UnProtectAllDocFiles()On Error Resume NextConst strRootPath = "D:\我的文件" ' 存放文档的目录Const strPassword = "" ' 密码Const strNewPassword = "" '新密码Dim oDoc As DocumentDim fso, oFolder, oFileSet fso = CreateObject("Scripting.FileSystemObject")Set oFolder 阅读全文