Document.EndCustomUndoAction-Methode (Publisher)

Gibt den Endpunkt einer Gruppe von gepackten Aktionen an, mit denen eine einzelne Rückgängig-Aktion erstellt wird. Die BeginCustomUndoAction-Methode wird verwendet, um den Startpunkt und die Bezeichnung (Textbeschreibung) der Aktionen anzugeben, die zum Erstellen der einzelnen Rückgängig-Aktion verwendet werden. Die gepackte Gruppe von Aktionen kann mit einem einzelnen Rückgängig-Befehl rückgängig gemacht werden.

Syntax

Ausdruck. EndCustomUndoAction

Ausdruck Eine Variable, die ein Document-Objekt darstellt.

HinwBemerkungeneise

BeginCustomUndoAction -Methode muss aufgerufen werden, bevor die EndCustomUndoAction -Methode aufgerufen wird. Wenn EndCustomUndoAction vor BeginCustomUndoAction aufgerufen wird, wird ein Laufzeitfehler zurückgegeben.

Beispiel

Das folgende Beispiel enthält zwei benutzerdefinierte Rückgängig-Aktionen. Zuerst wird auf der Seite 4 der aktiven Publikation erstellt. BeginCustomUndoAction -Methode wird verwendet, um den Punkt anzugeben, an dem die benutzerdefinierte Rückgängig-Aktion beginnen soll. Sechs einzelne Aktionen werden ausgeführt, und klicken Sie dann diese in eine Aktion mit dem Aufruf von EndCustomUndoAction umbrochen werden.

Der Text in dem Textrahmen, der in der ersten benutzerdefinierten Rückgängig-Aktion erstellt wurde, wird getestet, um zu ermitteln, ob es sich bei der Schriftart um Verdana handelt. Ist dies nicht der Fall, wird die Undo -Methode aufgerufen und UndoActionsAvailable als Parameter weitergegeben. In diesem Fall ist nur eine Rückgängig-Aktion verfügbar. Folglich wird mit dem Aufruf von Undo nur eine Aktion rückgängig gemacht, die allerdings aus sechs Aktionen besteht, die in diese einzelne Aktion gepackt wurden.

Im Anschluss daran wird eine zweite Rückgängig-Aktion erstellt, die zu einem späteren Zeitpunkt ebenfalls mit einem einzelnen Rückgängig-Vorgang rückgängig gemacht werden kann.

In diesem Beispiel wird davon ausgegangen, dass die aktive Publikation aus mindestens vier Seiten besteht.

Dim thePage As page 
Dim theShape As Shape 
Dim theDoc As Publisher.Document 
 
Set theDoc = ActiveDocument 
Set thePage = theDoc.Pages(4) 
 
With theDoc 
 ' The following six of actions are wrapped to create one 
 ' custom undo action named "Add Rectangle and Courier Text". 
 .BeginCustomUndoAction ("Add Rectangle and Courier Text") 
 With thePage 
 Set theShape = .Shapes.AddShape(msoShapeRectangle, _ 
 75, 75, 190, 30) 
 With theShape.TextFrame.TextRange 
 .Font.Size = 14 
 .Font.Bold = msoTrue 
 .Font.Name = "Courier" 
 .Text = "This font is Courier." 
 End With 
 End With 
 .EndCustomUndoAction 
 
 If Not thePage.Shapes(1).TextFrame.TextRange.Font.Name = "Verdana" Then 
 ' This call to Undo will undo all actions that are available. 
 ' In this case, there is only one action that can be undone. 
 .Undo (.UndoActionsAvailable) 
 ' A new custom undo action is created with a name of 
 ' "Add Balloon and Verdana Text". 
 .BeginCustomUndoAction ("Add Balloon and Verdana Text") 
 With thePage 
 Set theShape = .Shapes.AddShape(msoShapeBalloon, _ 
 75, 75, 190, 30) 
 With theShape.TextFrame.TextRange 
 .Font.Size = 11 
 .Font.Name = "Verdana" 
 .Text = "This font is Verdana." 
 End With 
 End With 
 .EndCustomUndoAction 
 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.