UndoTransaction 对象

   

代表存储由宏执行的操作的高速缓存。UndoTransaction 对象包含继续或停止执行指定事务处理的方法。

使用 UndoTransaction 对象

您可以使用 IFPDocument 对象的 createUndoTransaction 方法来创建 UndoTransaction 对象。下列示例创建撤消事务处理,说明了 abortcommit 方法。

Private Sub CreateTransaction()
Dim myTrans As FPHTMLUndoTransaction
Dim myDoc As FPHTMLDocument
Dim myUTransName As String
Dim myMsg As String

Set myDoc = ActiveDocument
myUTransName = "Undo Last Macro"
Set myTrans = _
    myDoc.createUndoTransaction(myUTransName)
myMsg = "Would you like to cancel the operation?"

Call myDoc.body.insertAdjacentHTML("BeforeEnd", _
    "<b> Added by FP Programmability </b>")

Answer = MsgBox(myMsg, vbYesNo, "Cancel Operation?")
If Answer = vbYes Then
    myTrans.abort
Else
    myTrans.commit
End If
End Sub