[分享]取得代码执行的撤消次数

守柔

有时我们向文档中使用VBA时，会出现可能因为不是用户想要的结果后而必须撤消操作，以下代码即是返回执行代码前的文档状态。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I LOVE YOU WORD!@ExcelHome 2005-12-1 6:34:47
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 00076^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit
Sub GetUndoNumber()
Dim myCombx As CommandBarComboBox, i As Byte
Dim OldNumber As Integer, NewNumber As Integer
Set myCombx = Word.CommandBars.FindControl(ID:=128)
OldNumber = myCombx.ListCount
For i = 1 To 10
Selection.InsertAfter Chr(13)
Next
NewNumber = myCombx.ListCount
MsgBox "本文档原有" & OldNumber & "撤消操作," & "本过程新增" & NewNumber - OldNumber & "撤消操作," _
& "现共有" & NewNumber & "撤消操作!", vbOKOnly + vbInformation, "欢迎使用"
End Sub
'----------------------

[此贴子已经被作者于2005-12-1 6:35:33编辑过]

konggs

谢谢老大分享，

不过不太清楚何时用到？

tangqingfu

谢谢守版的分享！
收藏备用！

cjccchj

请问守柔版主，如何用VBA执行撤消命令呢？
即我用判断语句来判断上一句命令执行的结果是否正确，如不正确则系统执行撤消命令。

x332553761

标记一下  收藏先