Some of us save our work before we pick up the phone, or as we hear a colleague approaching.
That means that our saved file is the best source of recovering from a failed experiment.
Public Sub FileRevertToSaved()
If Len(ActiveDocument.Path) = 0 Then
MsgBox "You can not revert to an unsaved file."
If MsgBox("Are you sure that you want to abandon your current work?", vbYesNo) = vbNo Then
Documents.Open FileName:=ActiveDocument.FullName, revert:=True