Document.UndoActionsAvailable-Eigenschaft (Publisher)

Gibt die Anzahl der verfügbaren Aktionen im Rollbackpuffer zurück. Schreibgeschützter Long-Wert.

Syntax

Ausdruck. UndoActionsAvailable

Ausdruck Eine Variable, die ein Document-Objekt darstellt.

Rückgabewert

Long

Beispiel

Das folgende Beispiel fügt der vierten Seite der aktiven Publikation ein Rechteck mit einem Textrahmen hinzu. Einige Schriftarteigenschaften und der Text des Textrahmens werden festgelegt. Dann wird ein Test ausgeführt, um zu ermitteln, ob die im Textrahmen verwendete Schriftart Courier ist. Falls ja, wird die Undo -Methode verwendet, wobei der Wert der UndoActionsAvailable -Eigenschaft als Parameter übergeben wird, um das Rückgängigmachen aller vorherigen Aktionen anzugeben.

Dann wird die Redo -Methode verwendet, wobei der Wert der RedoActionsAvailable -Eigenschaft minus 2 als Parameter übergeben wird, um außer den letzten beiden Aktionen alle Aktionen zu wiederholen. Zusätzlich zu neuem Text wird eine neue Schriftart für den Text im Textrahmen angegeben.

In diesem Beispiel wird davon ausgegangen, dass das aktive Dokument mindestens vier Seiten enthält.

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

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.