Document.BeginCustomUndoAction-Methode (Publisher)

Gibt den Startpunkt und die Beschriftung (Beschreibung) einer Gruppe von Aktionen an, die gepackt eine einzelne Rückgängig-Aktion darstellen.

Mit der EndCustomUndoAction -Methode wird der Endpunkt der Aktionen angegeben, aus denen die einzelne Rückgängig-Aktion erstellt wurde. Die gepackte Gruppe von Aktionen kann mit einem einzelnen Rückgängig-Befehl rückgängig gemacht werden.

Syntax

Ausdruck. BeginCustomUndoAction (ActionName)

Ausdruck Eine Variable, die ein Document-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
ActionName	Erforderlich	String	Die Beschriftung, die der einzelnen Rückgängig-Aktion entspricht. Diese Bezeichnung wird angezeigt, wenn Sie auf der Standardsymbolleiste auf den Pfeil neben der Schaltfläche Rückgängig klicken.

HinwBemerkungeneise

Die folgenden Methoden des Document -Objekts sind in einer benutzerdefinierten Rückgängig-Aktion nicht verfügbar. Wenn einer dieser Methoden in einer benutzerdefinierten Rückgängig-Aktion aufgerufen werden, wird ein Laufzeitfehler zurückgegeben:

• Close
• MailMerge.DataSource.Close
• PrintOut
• Wiederholen
• Save
• SaveAs
• Undo
• UndoClear
• UpdateOLEObjects

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

Das Schachteln einer benutzerdefinierten Rückgängig-Aktion in eine andere benutzerdefinierte Rückgängig-Aktion ist zulässig, wobei die geschachtelte Rückgängig-Aktion keine Auswirkung hat. Lediglich die äußerste benutzerdefinierte Rückgängig-Aktion ist aktiv.

Beispiel

Das folgende Beispiel enthält zwei benutzerdefinierte Rückgängig-Aktionen. Die erste Aktion wird auf der ersten Seite 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. Durch den Aufruf der Undo-Methode wird also nur eine Aktion rückgängig, aber diese eine Aktion hat sechs Aktionen in eine umschlossen.

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.

Dim thePage As page 
Dim theShape As Shape 
Dim theDoc As Publisher.Document 
 
Set theDoc = ActiveDocument 
Set thePage = theDoc.Pages(1) 
 
With theDoc 
 ' The following six 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.