Método Document.Undo (Publisher)

Desfaz a última ação ou um número específico de ações. Corresponde à lista de itens que é apresentada quando seleciona a seta ao lado do botão Anular na barra de ferramentas Standard.

Sintaxe

expressão. Anular (Contagem)

expressão Uma variável que representa um objeto documento .

Parâmetros

Comentários

Se for chamado quando não existirem ações na pilha de anulação ou quando a Contagem for maior do que o número de ações que residem atualmente na pilha, o método Anular irá anular o maior número de ações possível e ignorar o resto.

O número máximo de ações que podem ser desfeitas em uma chamada de Undo é 20.

Exemplo

O exemplo seguinte utiliza o método Anular para anular ações que não cumprem critérios específicos.

A parte 1 do exemplo adiciona uma forma de linha de texto explicativo retangular à quarta página da publicação ativa, e o texto é adicionado ao texto explicativo. Esse processo cria três ações.

Parte 2 do exemplo testa se a fonte do texto adicionado ao texto explicativo é Verdana. Caso contrário, o método Anular é utilizado para anular todas as ações disponíveis (o valor da propriedade UndoActionsAvailable é utilizado para especificar que todas as ações serão anuladas). Isso limpa todas as ações da pilha. Em seguida, é adicionada uma nova forma de retângulo e moldura de texto e a moldura de texto é preenchida com texto verdana.

Dim thePage As page 
Dim theShape As Shape 
Dim theDoc As Publisher.Document 
 
Set theDoc = ActiveDocument 
Set thePage = theDoc.Pages(4) 
 
With theDoc 
 ' Part 1 
 With thePage 
 ' Setting the shape creates the first action 
 Set theShape = .Shapes.AddShape(msoShapeRectangularCallout, _ 
 75, 75, 120, 30) 
 ' Setting the text range creates the second action 
 With theShape.TextFrame.TextRange 
 ' Setting the text creates the third action 
 .Text = "This text is not Verdana." 
 End With 
 End With 
 
 ' Part 2 
 If Not thePage.Shapes(1).TextFrame.TextRange.Font.Name = "Verdana" Then 
 ' UndoActionsAvailable = 3 
 .Undo (.UndoActionsAvailable) 
 With thePage 
 Set theShape = .Shapes.AddShape(msoShapeRectangle, _ 
 75, 75, 120, 30) 
 With theShape.TextFrame.TextRange 
 .Font.Name = "Verdana" 
 .Text = "This text is Verdana." 
 End With 
 End With 
 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.