Свойство Document.UndoActionsAvailable (издатель)

Возвращает количество действий, доступных в стеке отмены. Только для чтения, Long.

Синтаксис

выражение. UndoActionsAvailable

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

Возвращаемое значение

Long

Пример

В следующем примере на четвертой странице активной публикации добавляется прямоугольник, содержащий текстовый фрейм. Некоторые свойства шрифта и текст текстового фрейма заданы. Затем выполняется тест, чтобы определить, является ли шрифт в текстовом фрейме шрифтом Courier. Если да, то метод Undo используется со значением свойства UndoActionsAvailable , передаваемого в качестве параметра, чтобы указать, что все предыдущие действия будут отменены.

Затем используется метод Redo со значением свойства RedoActionsAvailable минус 2, переданным в качестве параметра для повтора всех действий, кроме двух последних. Для текста в текстовом фрейме будет указан новый шрифт в дополнение к новому тексту.

В этом примере предполагается, что активный документ содержит не менее четырех страниц.

Dim thePage As page 
Dim theShape As Shape 
Dim theDoc As Publisher.Document 
 
Set theDoc = ActiveDocument 
Set thePage = theDoc.Pages(4) 
 
With theDoc 
 With thePage 
 Set theShape = .Shapes.AddShape(msoShapeRectangle, _ 
 75, 75, 190, 30) 
 With theShape.TextFrame.TextRange 
 .Font.Size = 12 
 .Font.Name = "Courier" 
 .Text = "This font is Courier." 
 End With 
 End With 
 
 If thePage.Shapes(1).TextFrame.TextRange.Font.Name = "Courier" Then 
 .Undo (.UndoActionsAvailable) 
 .Redo (.RedoActionsAvailable - 2) 
 With theShape.TextFrame.TextRange 
 .Font.Name = "Verdana" 
 .Text = "This font is Verdana." 
 End With 
 End If 
End With

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.