上W份WORD文档有编辑保护口令，如何批量解除这些口令

usoler

kqbt 发表于 2016-10-26 14:55
稍作修改，可测试是否适用于所选目录及下一级其子目录：

成功了，非常感谢大神。
太感谢你了。
我在里面加了一句话，因为执行时提示未定义
Dim oSubFolder, oFile, oDoc

duquancai

usoler 发表于 2016-10-26 14:49
我已经将我进行测试的附件及相关操作进行了上传及说明，请大神帮忙给看下，是哪里出现了问题，谢谢了。

早提供附件不早就搞好了吗？请下载附件，打开“批量解密.doc”文件，点击“解码”按钮>>>>>>

1. Private Sub CommandButton1_Click()
   
2.     Dim Jm As New Bej, pa$, pt$, fi$
   
3.     Dim arr$(), n%, oDoc As Document
   
4.     Const Pas = "1111": fi = "*.doc*"
   
5.     Application.ScreenUpdating = False
   
6.     Application.DisplayAlerts = wdAlertsNone
   
7.     pa = ThisDocument.Path & ""
   
8.     pt = ThisDocument.FullName
   
9.     arr = Jm.wwj(pa, pt, fi)
   
10.     On Error Resume Next
    
11.     Do While arr(n + 1, 1) <> ""
    
12.         n = n + 1
    
13.         Set oDoc = GetObject(arr(n, 1))
    
14.         oDoc.Unprotect Pas
    
15.         oDoc.Close -1
    
16.     Loop
    
17.     Application.DisplayAlerts = wdAlertsAll
    
18.     Application.ScreenUpdating = True
    
19.     MsgBox "解密完成！"
    
20. End Sub

复制代码

duquancai

usoler 发表于 2016-10-26 15:34
成功了，非常感谢大神。
太感谢你了。
我在里面加了一句话，因为执行时提示未定义

在审核中！！！向上附件，早上附件不早就解决了吗？打开“解码wor文件”，点击按钮》》》》》

usoler

kqbt 发表于 2016-10-26 14:55
稍作修改，可测试是否适用于所选目录及下一级其子目录：

大神，咨询一下，这个语句 是不是只适用于两级目录？三级或更多级的就不行了，是吗？
如果文件夹里有其他格式的文件，应该也是适用的吧？

usoler

duquancai 发表于 2016-10-26 15:36
早提供附件不早就搞好了吗？请下载附件，打开“批量解密.doc”文件，点击“解码”按钮>>>>>>

大神，请问一下，这个是遍历电脑里所有的文件，是吗？

duquancai

usoler 发表于 2016-10-26 16:00
大神，咨询一下，这个语句 是不是只适用于两级目录？三级或更多级的就不行了，是吗？
如果文件夹里有其 ...

我设置的可以打开20000个doc或者docx文件；1000个文件夹及子文件夹。打开、关闭这么多的文件，慢慢等吧

usoler

duquancai 发表于 2016-10-26 16:15
我设置的可以打开20000个doc或者docx文件；1000个文件夹及子文件夹。打开、关闭这么多的文件，慢慢等吧

嗯嗯，谢谢大神的帮助，非常感谢

usoler

duquancai 发表于 2016-10-26 16:15
我设置的可以打开20000个doc或者docx文件；1000个文件夹及子文件夹。打开、关闭这么多的文件，慢慢等吧

大神，如果数量特别大时，执行时提示越界，我是不是只要修改Bej模块中的数值即可？
Dim arr$(1 To 60000), brr$(1 To 200000, 1 To 3)，除此之外还要修改哪里吗？
因为我修改后执行又提示溢出了
囧

duquancai

usoler 发表于 2016-10-26 16:41
大神，如果数量特别大时，执行时提示越界，我是不是只要修改Bej模块中的数值即可？
Dim arr$(1 To 6000 ...

益出就对了。内存不够用，当然益出了！

usoler

duquancai 发表于 2016-10-26 17:04
益出就对了。内存不够用，当然益出了！

嗯嗯，那我分批次处理吧，嘿嘿，谢谢