Document.Redo (издатель)

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

Синтаксис

выражение. Повторить (количество)

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

Параметры

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

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

Отсутствует

Примечания

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

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

Пример

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

Часть 1 создает прямоугольник, содержащий текстовый фрейм на четвертой странице активной публикации. Задаются различные свойства шрифтов, и текст добавляется в текстовый фрейм. В этом случае для текста "Этот шрифт Courier" используется полужирный шрифт Courier размером 12 пунктов.

Часть 2 проверяет, является ли текст в текстовом фрейме шрифтом Verdana. Если нет, метод Undo используется для отмены последних четырех действий в стеке отмены. Затем метод повтора используется для повтора первых двух из последних четырех действий, которые были только что отменены. В этом случае повторяется третье действие (установка размера шрифта) и четвертое действие (установка полужирного шрифта). После этого название шрифта меняется на Verdana, а текст изменяется.

Dim thePage As page 
Dim theShape As Shape 
Dim theDoc As Publisher.Document 
 
Set theDoc = ActiveDocument 
Set thePage = theDoc.Pages(4) 
 
' Part 1 
With theDoc 
 With thePage 
 ' Setting the shape creates the first action 
 Set theShape = .Shapes.AddShape(msoShapeRectangle, _ 
 75, 75, 190, 30) 
 ' Setting the text range creates the second action 
 With theShape.TextFrame.TextRange 
 ' Setting the font size creates the third action 
 .Font.Size = 12 
 ' Setting the font to bold creates the fourth action 
 .Font.Bold = msoTrue 
 ' Setting the font name creates the fifth action 
 .Font.Name = "Courier" 
 ' Setting the text creates the sixth action 
 .Text = "This font is Courier." 
 End With 
 End With 
 
 ' Part 2 
 If Not thePage.Shapes(1).TextFrame.TextRange.Font.Name = "Verdana" Then 
 .Undo (4) 
 With thePage 
 With theShape.TextFrame.TextRange 
 ' Redo redoes the first two of the four actions that were just undone 
 theDoc.Redo (2) 
 .Font.Name = "Verdana" 
 .Text = "This font is Verdana." 
 End With 
 End With 
 End If 
End With

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

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