通过

Document.Undo 方法 (Publisher)

  • 项目

Undoes the last action or a specified number of actions. 对应于在“标准”工具栏上选择“撤消”按钮旁边的箭头时出现的项列表。

语法

表达式。撤消 (计数)

表达 一个代表 Document 对象的变量。

参数

名称 必需/可选 数据类型 说明
Count 可选 Long 指定要撤消的操作数量。 默认值为 1，表示如果忽略该参数，将仅撤消上一步操作。

备注

如果在撤消堆栈上没有操作时调用，或者 当 Count 大于堆栈上当前驻留的操作数时调用， 则 Undo 方法将撤消尽可能多的操作并忽略其余操作。

一次调用 Undo 最多可撤消 20 个操作。

示例

以下示例使用 Undo 方法撤消不符合特定条件的操作。

示例的第一部分将矩形标注形状添加到活动出版物的第四页上，然后将文本添加到标注。 该过程将创建三个操作。

该示例的第二部分测试是否添加到标注的文本的字体为宋体。 否则， Undo 方法用于撤消所有可用操作， (UndoActionsAvailable 属性的值用于指定撤消所有操作) 。 这将清除所有操作从堆栈。 然后添加新的矩形形状和文本框架，并使用 Verdana 文本填充文本框架。

Dim thePage As page 
Dim theShape As Shape 
Dim theDoc As Publisher.Document 
 
Set theDoc = ActiveDocument 
Set thePage = theDoc.Pages(4) 
 
With theDoc 
 ' Part 1 
 With thePage 
 ' Setting the shape creates the first action 
 Set theShape = .Shapes.AddShape(msoShapeRectangularCallout, _ 
 75, 75, 120, 30) 
 ' Setting the text range creates the second action 
 With theShape.TextFrame.TextRange 
 ' Setting the text creates the third action 
 .Text = "This text is not Verdana." 
 End With 
 End With 
 
 ' Part 2 
 If Not thePage.Shapes(1).TextFrame.TextRange.Font.Name = "Verdana" Then 
 ' UndoActionsAvailable = 3 
 .Undo (.UndoActionsAvailable) 
 With thePage 
 Set theShape = .Shapes.AddShape(msoShapeRectangle, _ 
 75, 75, 120, 30) 
 With theShape.TextFrame.TextRange 
 .Font.Name = "Verdana" 
 .Text = "This text is Verdana." 
 End With 
 End With 
 End If 
End With

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。