This example undoes the last two actions taken in Sales.doc.
Documents("Sales.doc").Undo 2
This example undoes the last action. If the action is successfully undone, a message is displayed in the status bar.
On Error Resume Next
If ActiveDocument.Undo = False Then _
StatusBar = "Undo was unsuccessful"