title: I forgot the password to open a Word document. How can I retrieve the password?
body: <p>I have a word document that prompts the user for a password to open it, the dialogue box is like below.</p>
  
  <pre><code>"Enter Password to open file" 
  </code></pre>
  
  <p>I found some code to break a password using brute force which is below (written it from with Excel). The only issue is when I use Documents.Open if the password is wrong word shows the dialogue box - is there anyway to get round this?</p>
  
  <pre><code>Private Sub PasswordBreakerWord()
  'Author unknown but submitted by brettdj of www.experts-exchange.com
  
  
  Dim objWord As Word.Application
  Dim objDoc As Word.Document
  Dim strPath As String
  Dim passAtmp As String
  
  strPath = "H:\My_Path\"
  
  Set objWord = CreateObject("word.Application")
  objWord.Visible = True
  
  Dim i As Integer, j As Integer, k As Integer
  Dim l As Integer, m As Integer, n As Integer
  Dim i1 As Integer, i2 As Integer, i3 As Integer
  Dim i4 As Integer, i5 As Integer, i6 As Integer
  On Error Resume Next
  For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
  For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
  For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
  For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
  
    passAtmp = Chr(i) &amp; Chr(j) &amp; Chr(k) &amp; Chr(l) &amp; Chr(m) &amp; Chr(i1) &amp; Chr(i2) &amp; Chr(i3) &amp; Chr(i4) &amp; Chr(i5) &amp; Chr(i6) &amp; Chr(n)
  
   On Error Resume Next
    Set objDoc = objWord.Documents.Open(Filename:=strPath &amp; "High Yield FMA Procedures.doc", PasswordTemplate:=passAtmp)
   If Err &lt;&gt; 0 Then
      On Error GoTo 0
   Else
      MsgBox "password is: " &amp; passAtmp
      Debug.Print passAtmp
      Exit Sub
  End If
  
  Next: Next: Next: Next: Next: Next
  Next: Next: Next: Next: Next: Next
  
  Set objWord = Nothing
  
  End Sub
  </code></pre>