You can loop through all the *.doc files in a directory with this macro. It opens the file, selects the whole document and copies it, then pastes to a new document. The file is then saved with the original name, but in a new directory.
Sub RecoverFile()
Dim strPath As String
Dim strNewPath As String
Dim strFullPathDoc As String
Dim strFileName As String
strPath = "F:\Data\TestFolder\"
strNewPath = strPath & "Recovered\"
strFullPathDoc = Dir(strPath & "*.doc", vbNormal)
Do While strFullPathDoc <> ""
strFileName = ExtractFileName(strFullPathDoc)
Documents.Open strPath & strFileName
Selection.WholeStory
Selection.Copy
Documents.Add Template:="Normal", NewTemplate:=False
Selection.Paste
ActiveDocument.SaveAs strNewPath & strFileName
ActiveWindow.Close
strFullPathDoc = Dir ' Get next entry.
Loop
End Sub
Function ExtractFileName(strFullPath As String)
Dim txt As String
On Error Resume Next
txt = "" & strFullPath
While InStr(txt, "\"

> 0
txt = Mid$(txt, InStr(txt, "\"

+ 1)
Wend
If InStr(txt, ":"

> 0 Then
txt = Mid$(txt, InStr(txt, ":"

+ 1)
End If
ExtractFileName = txt
End Function