利用記事本建立VBS指令碼檔案來破解WORD的數字型密碼
工具/原料
記事本 WORD
方法/步驟
開啟記事本，輸入以下程式碼：
Set WORD = GetObject(, "WORD.Application")
On Error Resume Next
For i = 1 To 200 '此處的數字根據需要修改
WORD.Documents.Open "E:\DOC1.DOC", , , , i & "" '此處的檔案E:\DOC1.DOC根據需要修改
If Err.Number = 0 Then MsgBox ("密碼是：" & i): Exit For
Err.Clear
Next
另存為 破解.vbs
先任意一個word視窗，然後執行這個檔案
一般適合純數字型的密碼，一般一秒鐘能測試幾百個（具體與電腦效能有關）。
一般一個小時內能破解一個六位以內數字
結合EXCEL表或字典，也能解開一些複雜密碼
注意事項
先開啟一個WORD視窗，以便使用GetObject（直接使用cteateObject好像在裝過WPS的電腦不好使）