代表存储由宏执行的操作的高速缓存。UndoTransaction 对象包含继续或停止执行指定事务处理的方法。
您可以使用 IFPDocument 对象的 createUndoTransaction 方法来创建 UndoTransaction 对象。下列示例创建撤消事务处理,说明了 abort 和 commit 方法。
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