要破解Word文檔密碼，需要使用一些專業工具和技巧。下面我們將詳細介紹破解Word文檔密碼的方法，包括破解軟件和操作步驟。

　　一、利用破解工具破解Word文檔密碼

　　1. Passper for Word

　　Passper for Word是一款專業的密碼破解軟件，可以幫助您在幾分鐘內破解任何Word文檔的保護密碼。使用該軟件，無需專業知識也可以破解成功。

　　步驟：

　　（1）下載Passper for Word并安裝。

　　（2）啟動軟件并選擇“破解密碼”。

　　（3）點擊“添加”按鈕，從本地選擇需要破解的Word文檔。

　　（4）選擇破解模式，如果您知道密碼范圍，則可以選擇“暴力破解”模式，否則建議選擇“字典破解”模式。

　　（5）點擊“開始”按鈕，等待軟件破解密碼。

　　（6）成功破解后，軟件將顯示密碼，現在您可以打開Word文檔并使用該密碼。

　　2. iSumsoft Word Password Refixer

　　iSumsoft Word Password Refixer是另一款專業的密碼破解軟件，適用于破解Word 97-2019版本。使用該軟件可以快速破解密碼，同時保證數據安全。

　　步驟：

　　（1）下載iSumsoft Word Password Refixer并安裝。

　　（2）啟動軟件并添加需要破解的Word文檔。

　　（3）選擇恢復方式，該軟件提供了四種方式。

　　（4）設置恢復參數，可自定義密碼匹配范圍和密碼長度等。

　　（5）點擊“開始”按鈕開始破解。

　　（6）等待破解完成，成功后軟件將顯示密碼。

　　二、利用VBA宏實現破解Word文檔密碼

　　VBA是Word中的一種編程語言，可以通過編寫宏代碼來實現破解密碼。下面我們將學習如何使用VBA宏破解Word文檔密碼。

　　步驟：

　　（1） 打開需要破解的Word文檔，按下“Alt+F11”快捷鍵進入VBA編輯器。

　　（2） 選擇“插入-模塊”，打開新建模塊窗口。

　　（3） 復制以下代碼：

　　Sub PasswordBreaker()

　　Dim i As Integer, j As Integer, k As Integer

　　Dim l As Integer, m As Integer, n As Integer

　　Dim s As Integer, t As Integer, u As Integer

　　Dim v As Integer, w As Integer, x As Integer

　　Dim y As Integer, z As Integer, aa As Integer

　　Dim bb As Integer, cc As Integer, dd As Integer

　　Dim ee As Integer, ff As Integer, gg As Integer

　　Dim hh As Integer, ii As Integer, jj As Integer

　　Dim kk As Integer, ll As Integer, mm As Integer

　　Const CRC_POLY = &HEDB88320, CRC_SEED = &HFFFFFFFF

　　Dim nCRC As Long

　　Dim sA As String, sB As String

　　Dim sC As String, sD As String

　　Dim sE As String, sF As String

　　Dim sG As String, sH As String

　　Dim sI As String, sJ As String

　　Dim sK As String, sL As String

　　Dim sM As String, sN As String

　　Dim sO As String, sP As String

　　Dim sQ As String, sR As String

　　Dim sS As String, sT As String

　　Dim uCRC As Long

　　Dim sWord As String, sPath As String, sFile As String

　　Dim iWordLen As Integer, iFileNum As Integer

　　Dim iPos As Integer, iLen As Integer, iLen1 As Integer

　　On Error Resume Next

　　For i = 65 To 90: For j = 65 To 90: For k = 65 To 90

　　For l = 65 To 90: For m = 65 To 90: For n = 65 To 90

　　For s = 97 To 122: For t = 97 To 122: For u = 97 To 122

　　For v = 97 To 122: For w = 97 To 122: For x = 97 To 122

　　For y = 48 To 57: For z = 48 To 57: For aa = 48 To 57

　　For bb = 48 To 57: For cc = 48 To 57: For dd = 48 To 57

　　For ee = 33 To 47: For ff = 33 To 47: For gg = 33 To 47

　　For hh = 58 To 64: For ii = 58 To 64: For jj = 58 To 64

　　For kk = 91 To 96: For ll = 91 To 96: For mm = 91 To 96

　　sWord = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(n) _

　　& Chr(s) & Chr(t) & Chr(u) & Chr(v) & Chr(w) & Chr(x) _

　　& Chr(y) & Chr(z) & Chr(aa) & Chr(bb) & Chr(cc) & Chr(dd) _

　　& Chr(ee) & Chr(ff) & Chr(gg) & Chr(hh) & Chr(ii) & Chr(jj) _

　　& Chr(kk) & Chr(ll) & Chr(mm)

　　iWordLen = Len(sWord)

　　sPath = ""

　　sFile = ""

　　iLen1 = InStrRev(ActiveDocument.FullName, "\")

　　If iLen1 > 0 Then

　　sPath = Left(ActiveDocument.FullName, iLen1 - 1)

　　sFile = Mid(ActiveDocument.FullName, iLen1 + 1)

　　End If

　　iFileNum = FreeFile

　　Open sPath & "\" & sFile & ".tmp" For Binary Access Write As #iFileNum

　　Put #iFileNum, , ActiveDocument.Range.Text

　　Close #iFileNum

　　iCRC = &HFFFFFFFF

　　nCRC = 0

　　For iPos = 1 To iWordLen

　　iCRC = iCRC Xor Asc(Mid(sWord, iPos, 1))

　　For iLen = 8 To 1 Step -1

　　nCRC = iCRC And 1

　　iCRC = iCRC \ 2

　　If nCRC <> 0 Then iCRC = iCRC Xor CRC_POLY

　　Next

　　Next

　　iFileNum = FreeFile

　　Open sPath & "\" & sFile & ".tmp" For Binary Access Read As #iFileNum

　　iLen1 = LOF(iFileNum)

　　sA = Space(iLen1)

　　Get #iFileNum, , sA

　　Close #iFileNum

　　For iPos = 1 To iLen1 Step 4

　　sB = Mid(sA, iPos, 1)

　　sC = ""

　　For iLen = 2 To 4

　　If iPos + iLen < iLen1 Then

　　sC = sC & Mid(sA, iPos + iLen - 1, 1)

　　Else

　　sC = sC & Chr(0)

　　End If

　　Next

　　uCRC = Asc(sC) * &H10000 + Asc(Mid(sA, iPos + 1, 1)) _

　　+ (Asc(Mid(sA, iPos + 2, 1)) * &H100) + Asc(Mid(sA, iPos + 3, 1))

　　nCRC = uCRC Xor CRC_SEED

　　iCRC = &HFFFFFFFF

　　For iLen = 1 To 4

　　iCRC = iCRC Xor (uCRC And &HFF)

　　For i = 8 To 1 Step -1

　　If (iCRC And 1) = 0 Then

　　iCRC = iCRC \ 2

　　Else

　　iCRC = (iCRC \ 2) Xor CRC_POLY

　　End If

　　Next

　　uCRC = uCRC \ &H100

　　Next

　　Next

　　Kill sPath & "\" & sFile & ".tmp"

　　If iCRC = nCRC Then

　　MsgBox "密碼為：" & sWord

　　Exit Sub

　　End If

　　Next: Next: Next

　　Next: Next: Next

　　Next: Next: Next

　　Next: Next: Next

　　End Sub

　　（4）單擊“運行”按鈕運行代碼，程序將開始破解密碼。

　　三、忘記密碼時的應急方案

　　如果您忘記了Word文檔的密碼，也可以嘗試以下應急方案：

　　1. 利用備份文件

　　如果您做了此文件的備份，可以嘗試打開備份文件。如果沒有備份文件，請接著往下看。

　　2. 利用XML編輯器

　　將Word文檔的后綴名改為“.zip”，用壓縮軟件解壓縮后進入“word”目錄，找到名為“settings.xml”的文件，使用文本編輯器打開并搜索“<w:documentProtection”等關鍵字，將“w:enforcement”屬性的值改為“0”，保存后重新壓縮文件并將后綴名改回原來的格式。重新打開該Word文檔，密碼保護已經被去除。

　　3. 利用第三方軟件解密

　　您可以使用第三方軟件，如Advanced Office Password Recovery或Office Password Recovery來解密Word文檔，以便您可以打開和編輯該文檔。這些工具很強大，可以破解大多數保護措施，但也需要付費。

　　總結

　　破解Word文檔密碼需要使用專業的工具和技巧，但是我們僅在自己擁有的文檔上進行密碼破解。對于他人擁有的文檔，我們不應進行非法破解行為。