可用以下步骤解开：
新开一Wordl，打开，记住文件路径，取消。然后把你待解密文件copy到这一路径，改名为1.doc（如果是2007，可能叫1.docx，需要把下面代码中两处改成1.docx改了）。然后回到Word窗口，同时按Alt和F11，右键点左上窗口中的Thisdocument，插入，模块，在右边新出来的窗口粘贴一下代码
Sub crack()
Dim i As Long
i = 1
line2:
On Error GoTo line1
Do While True
***.Open "1.doc", , , , "" & i
Documents("1.doc").Close 0
MsgBox "Password is" & i
Exit Sub
Loop
line1:
i = i + 1
Resume line2
End Sub
然后按F5运行此宏
如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。
