Add cancel button to Progress Bar

[ericawarren]

• Figure out how to monitor cancel status so base macro stops running
• Then revert to saved version: https://www.safaribooksonline.com/library/view/wor...

Sub FileRevertToSaved( )
Dim sDocPath As String
Dim sDocFullName As String

sDocFullName = ActiveDocument.FullName
sDocPath = ActiveDocument.Path

If Len(sDocPath) = 0 Then
MsgBox "Can't revert a document that's never been saved."
Exit Sub
End If

If MsgBox("Really revert to last saved version? " & _
"(Can't be undone)", _
vbYesNo) = vbNo Then
Exit Sub
End If

Documents.Open FileName:=sDocFullName, Revert:=True
End Sub