急问？？？

softall

如何撤消WORD的上一步操作，用VBA怎么写代码

守柔

Sub undotest()
On Error Resume Next
ActiveDocument.Undo 2 '撤消最后两次操作
If ActiveDocument.Undo = False Then '如果撤消(向前撤消按钮反白(即"无法撤消"))
MsgBox "Undo was unsuccessful"
End If
End Sub 试一下。