Compartilhar via


Propriedade Document.RedoActionsAvailable (Publisher)

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

Sintaxe

expressão. Redações Disponíveis

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 então é usado com o valor da propriedade RedoActionsAvailable menos 2 passada como um parâmetro para refazer todas as ações, exceto as duas últimas. Uma nova fonte é especificada para o texto no quadro de texto, além do novo 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 
 ' The Undo method specifies that all undoable actions be undone. 
 .Undo (.UndoActionsAvailable) 
 ' The Redo method uses RedoActionsAvailable - 2 to specify that 
 ' all redoable actions be redone except for the last two actions. 
 ' The last two actions that are not redone are setting 
 ' .Font.Name and .Text. 
 .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.