commit 方法

对自从创建 UndoTransaction 对象以来添加到撤消堆栈的操作序列执行 UndoTransaction 对象。例如，如果您创建了 UndoTransaction 对象，然后运行宏，commit 方法允许宏继续运行；或者，如果宏已完成，则 commit 方法可防止宏效果回滚。也就是说，宏的操作序列已经提交而无法回滚。

expression  该表达式返回 FPHTMLUndoTransaction 对象。

返回类型

Void

示例

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

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