createUndoTransaction 方法

创建允许取消指定事务的 FPHTMLUndoTransaction 对象。

expression  必选。返回 DispFPHTMLDocument 对象的表达式。

Title  必选，String 类型。指定 FPHTMLUndoTransaction 对象的标题。

示例

使用 createUndoTransaction 方法创建 UndoTransaction 对象。以下示例创建 FPHTMLUndoTransaction 对象，并且就是否取消此操作提示用户。

Private Sub CreateTransaction()
    Dim objTrans As FPHTMLUndoTransaction
    Dim objDoc As FPHTMLDocument
    Dim objUTransName As String
    Dim strMsg As String
    Dim strAnswer as String

    Set objDoc = ActiveDocument
    objUTransName = "Undo Last Macro"
    Set objTrans = _
    objDoc.createUndoTransaction(objUTransName)
    strMsg = "Would you like to cancel the operation?"

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

    strAnswer = MsgBox(strMsg, vbYesNo, "Cancel Operation?")
    If strAnswer = vbYes Then
        objTrans.abort
    Else
        objTrans.commit
    End If
End Sub