Document.Redo-Methode (Publisher)

Die letzte Aktion oder eine angegebene Anzahl von Aktionen wird wiederholt. Entspricht der Liste der Elemente, die angezeigt wird, wenn Sie auf der Symbolleiste Standard auf den Pfeil neben der Schaltfläche Wiederholen klicken. Durch Aufrufen dieser Methode wird die Undo-Methode umgekehrt.

Syntax

Ausdruck. Wiederholen (Anzahl)

Ausdruck Eine Variable, die ein Document-Objekt darstellt.

Parameter

Rückgabewert

Nichts

Bemerkungen

Wenn aufgerufen wird, wenn keine Aktionen im Wiederholungsstapel vorhanden sind oder Wenn Count größer ist als die Anzahl der Aktionen, die sich derzeit im Stapel befinden, wird die Redo-Methode so viele Aktionen wie möglich wiederholen und den Rest ignorieren.

Die Höchstzahl von Aktionen, die durch Aufrufen von Redo wiederholt werden können, beträgt 20.

Beispiel

Im folgenden Beispiel wird die Redo-Methode verwendet, um eine Teilmenge der Aktionen zu wiederholen, die mithilfe der Undo-Methode rückgängig machen wurden.

In Teil 1 wird ein Rechteck erstellt, das auf der vierten Seite der aktiven Publikation einen Textrahmen enthält. Es werden verschiedene Schrifteigenschaften festgelegt, und dem Textrahmen wird Text hinzugefügt. In diesem Fall wird der Text "This font is Courier" auf die Schriftart Courier, 12 Punkte, fett, festgelegt.

Teil 2 überprüft, ob der Text im Textrahmen die Schriftart Verdana aufweist. Andernfalls wird die Undo-Methode verwendet, um die letzten vier Aktionen im Rückgängig-Stapel rückgängig zu machen. Die Redo-Methode wird dann verwendet, um die ersten beiden der letzten vier Aktionen zu wiederholen, die gerade rückgängig wurden. In diesem Fall werden die dritte Aktion (Festlegen des Schriftgrads) und die vierte Aktion (wenn die Schriftart fett formatiert) wiederholt. Der Name der Schriftart wird dann zu Verdana geändert, und der Text wird geändert.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.