Поделиться через

Свойство Document.RedoActionsAvailable (Publisher)

  • Статья

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

Синтаксис

expression. RedoActionsAvailable

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

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

Длинное целое

Пример

В следующем примере на четвертую страницу активной публикации добавляется прямоугольник, содержащий текстовый фрейм. Задаются некоторые свойства шрифта и текст текстового фрейма. Затем выполняется тест, чтобы определить, является ли шрифт в текстовом фрейме 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 
 ' The Undo method specifies that all undoable actions be undone. 
 .Undo (.UndoActionsAvailable) 
 ' The Redo method uses RedoActionsAvailable - 2 to specify that 
 ' all redoable actions be redone except for the last two actions. 
 ' The last two actions that are not redone are setting 
 ' .Font.Name and .Text. 
 .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 и обратная связь.