Метод Document.Undo (издатель)

Отмена последнего действия или указанного количества действий. Соответствует списку элементов, отображаемому при нажатии стрелки рядом с кнопкой "Отменить" на панели инструментов Standard.

Синтаксис

выражение. Отмена (подсчет)

выражение Переменная, представляющая объект документа .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Count	Необязательный	Long	Указывает количество действий, которые необходимо отменить. Значение по умолчанию — 1, означающее, что если этот параметр опущен, будет отменено только последнее действие.

Примечания

Если он вызывается, когда в стеке отмены нет действий или когда Count больше, чем количество действий, которые в данный момент находятся в стеке, метод Undo отменит как можно больше действий и проигнорирует остальные.

Максимальное количество действий, которые можно отменить за один вызов отмены , составляет 20.

Пример

В следующем примере метод отмены используется для отмены действий, которые не соответствуют определенным критериям.

Часть 1 примера добавляет прямоугольную выноску на четвертую страницу активной публикации, а текст — к выноске. Этот процесс создает три действия.

Часть 2 примера проверяет, является ли шрифт текста, добавленного в выноску, шрифтом Verdana. Если нет, метод 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 и обратная связь.