如何破解word密码

忘记word密码，如何破解？

如果密码是7位数以内的数字，如下操作（关闭所有其他程序，为了速度）：

新建一Word，同时按键盘的Alt和F11，点菜单上的插入，模块，在右边新出来的窗口粘贴一下代码：

Sub test()

Dim i As Long

i = 0

Dim FileName As String

Application.FileDialog(msoFileDialogOpen).Show

FileName = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)

ScreenUpdating = False

Line2: On Error GoTo Line1

Documents.Open FileName, , True, , i & ""

MsgBox "Password is " & i

Application.ScreenUpdating = True

Exit Sub

Line1: i = i + 1

Resume Line2

ScreenUpdating = True

End Sub

然后在此窗口直接按F5运行此宏，出现一打开窗口，选择你待解密的文件，等啊等（看你密码长度了）。

如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了