createUndoTransaction 方法

创建指定文档的 FPHTMLUndoTransaction 对象的新实例。UndoTransaction 对象提供了对（在创建撤消事务处理堆栈之后）所发生的每个操作进行跟踪的机制。然后您就可以使用 Page 对象模型在实时运行时提供的编程元素来跟踪宏的操作。

expression  返回 FPHTMLDocument、IFPDocument 或 IHTMLDocument 对象的表达式。

title  必选，String 类型。表示 FPHTMLUndoTransaction 对象的标题并且出现在“编辑”菜单的“撤消”部分上的字符串。

返回类型

Object

示例

下列示例创建事务处理，执行将操作添加到堆栈中的操作，然后要求用户响应以决定是放弃操作还是提交操作。

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