如果密碼是7位數以內的數字，如下操作（關閉所有其他程式，為了速度）：新建一Word，同時按鍵盤的Alt和F11，點選單上的插入，模組，在右邊新出來的視窗貼上一下程式碼：Sub test()Dim i As Longi = 0Dim FileName As StringApplication.FileDialog(msoFileDialogOpen).ShowFileName = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)ScreenUpdating = FalseLine2: On Error GoTo Line1Documents.Open FileName, , True, , i & ""MsgBox "Password is " & iApplication.ScreenUpdating = TrueExit SubLine1: i = i + 1Resume Line2ScreenUpdating = TrueEnd Sub然後在此視窗直接按F5執行此宏，出現一開啟視窗，選擇你待解密的檔案，等啊等（看你密碼長度了）。如果有字母，稍微複雜些，道理是一樣的。太長的密碼，基本解不開了。
如果密碼是7位數以內的數字，如下操作（關閉所有其他程式，為了速度）：新建一Word，同時按鍵盤的Alt和F11，點選單上的插入，模組，在右邊新出來的視窗貼上一下程式碼：Sub test()Dim i As Longi = 0Dim FileName As StringApplication.FileDialog(msoFileDialogOpen).ShowFileName = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)ScreenUpdating = FalseLine2: On Error GoTo Line1Documents.Open FileName, , True, , i & ""MsgBox "Password is " & iApplication.ScreenUpdating = TrueExit SubLine1: i = i + 1Resume Line2ScreenUpdating = TrueEnd Sub然後在此視窗直接按F5執行此宏，出現一開啟視窗，選擇你待解密的檔案，等啊等（看你密碼長度了）。如果有字母，稍微複雜些，道理是一樣的。太長的密碼，基本解不開了。