Método Document.EndCustomUndoAction (Publisher)

Especifica o ponto final de um grupo de ações dispostas para criar uma única ação desfazer. O método BeginCustomUndoAction é usado para especificar o ponto de partida e o rótulo (descrição textual) das ações usadas para criar a ação de desfazer único. O grupo disposto de ações pode ser desfeito com uma única ação desfazer.

Sintaxe

expressão. EndCustomUndoAction

Expressão Uma variável que representa um objeto Document .

Comentários

O método BeginCustomUndoAction deve ser chamado antes que o método EndCustomUndoAction é chamado. Um erro em tempo de execução será retornado se EndCustomUndoAction é chamado antes BeginCustomUndoAction.

Exemplo

O exemplo a seguir contém duas ações de desfazer personalizado. A primeira é criada na página quatro da publicação ativa. O método BeginCustomUndoAction é usado para especificar o ponto no qual a ação de desfazer personalizada deve começar. Seis ações individuais são executadas e, em seguida, eles devem ser quebrados em uma ação com a chamada para EndCustomUndoAction.

O texto no quadro que foi criado dentro da primeira ação de desfazer personalizada é testado para determinar se a fonte é Verdana. Se não for, o método Undo será chamado com UndoActionsAvailable passado como parâmetro. Nesse caso, existe apenas uma ação de desfazer disponível. Por isso, a chamada para Undo desfará somente uma ação, que, porém, engloba seis ações.

Uma segunda ação desfazer é, então, criada e também pode ser desfeita posteriormente com uma única operação desfazer.

Este exemplo pressupõe que a publicação ativa contém pelo menos quatro páginas.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.