如果密码是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运行此宏，出现一打开窗口，选择你待解密的文件，等啊等（看你密码长度了）。
如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。
Word的密码保护功能比较强，如果一不小心忘了Word密码怎么办？怎么才能修改加密了的Word文档呢？ Word的文档保护分为打开保护和修改保护，对于前者网上已经有许多比较成熟的办法。比如“三步法”就是一个非常不错的选择。但是对于后者——Word的修改保护，“三步法”就失效了。最近笔者在“三步法”的基础上总结一个比较精巧的办法，只需一个小小改动，就可以解除Word文档的保护。参考资料：Office之家
http://www.officejia.com/word/wenda/20100518_10186.html 第一步，将Word文档另存为web页。具体操作是在“文件”菜单下点击“另存为web页”(即:文件——>另存为web页)。
第二步，将刚存好的web文件用“记事本程序”打开。
记事本程序
第三步，在文档中，查找 <w:DocumentProtection></w:DocumentProtection> 套接字，该套接字之间的内容就是Word文档实际保护的内容。我们可以看到，我所解除保护的文件名为《关于进一步加强入境船舶压舱水卫监管的通知》的Word文档，其保护内容是forms(请看下图)。
Word文档
我们只需将语句Forms更改为Forms，即属性“DocumentProtection”前面加上前缀“un”变为“unDocumentProtection”，由原来的“文档保护”属性变更为目前的“非文档保护”属性(请看下图)。
非文档保护
将记事本文件保存退出，用Word打开刚才保存的web网页即可，这个时候你会发现，原来受保护的Word文件，现在已经不受保护，可以任意编辑。
已经不受保护