This example redoes the last two actions in the Sales.doc redo list.
Documents("Sales.doc").Redo 2
This example redoes the last action in the active document. If the action is successfully redone, a message is displayed in the status bar.
On Error Resume Next
If ActiveDocument.Redo = False Then _
StatusBar = "Redo was unsuccessful"