Compartilhar via

Propriedade Document.UndoActionsAvailable (Publisher)

  • Artigo

Retorna o número de ações disponíveis na pilha de desfazer. Long somente leitura.

Sintaxe

expressão. UndoActionsAvailable

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

Valor de retorno

Longo

Exemplo

O exemplo a seguir adiciona um retângulo que contém um quadro de texto à quarta página da publicação ativa. Algumas propriedades de fonte e o texto do quadro de texto são definidos. Em seguida, um teste é executado para determinar se a fonte do quadro de texto é Courier. Se for, o método Undo será usado com o valor da propriedade UndoActionsAvailable passada como parâmetro para especificar que todas as ações anteriores serão desfeitas.

O método Redo é usado com o valor da propriedade RedoActionsAvailable menos 2 passada como parâmetro para refazer todas as ações, exceto as duas últimas. Uma nova fonte, além do novo texto, é especificada para o texto do quadro de texto.

Este exemplo pressupõe que o documento ativo contenha 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 
 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

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.