原始url：http://bugeyes.blog.edu.cn/user1/20989/archives/2006/1111529.shtml

很简单的东西，见笑，写出来玩玩。

Dim jm As New Word.Application
Dim wd As New Word.Document

Private Sub Command1_Click()
On Error GoTo BugEyes '异常处理
Dim Password As String * 10
Open "dic.txt" For Input As #1 'dix.txt是自定义的字典，存放在当前文件夹中
Do While Not EOF(1) '依次测试字典中的每一个密码
BugEyes:
Line Input #1, Password
i = jm.Documents.Open(File1.Path + "\" + File1.FileName, , , , LTrim(RTrim(Password))) '用当前密码打开
jm.Visible = False
Label3.Caption = Password '显示密码
Exit Sub
Loop
Label3.Caption = "抱歉，破解不成功": Exit Sub
End Sub

程序截图：

本程序在word2k/word2003+win2kpro平台下通过测试。