Partager via

Propriété Document.RedoActionsAvailable (Publisher)

  • Article

Renvoie le nombre d'actions disponibles sur la pile de rétablissement. Long (en lecture seule).

Syntaxe

expression. RedoActionsAvailable

Expression Variable qui représente un objet Document .

Valeur renvoyée

Entier long

Exemple

L'exemple suivant ajoute un rectangle contenant un cadre de texte à la quatrième page de la composition active. Certaines propriétés de police et le texte du cadre de texte sont définis. Un test détermine ensuite si la police du cadre de texte est Courier. Si tel est le cas, la méthode Undo est utilisée avec la valeur de la propriété UndoActionsAvailable transmise sous la forme d'un paramètre pour spécifier que toutes les actions précédentes doivent être annulées.

La méthode Redo est ensuite utilisée avec la valeur de la propriété RedoActionsAvailable moins 2 transmise en tant que paramètre pour rétablir toutes les actions sauf les deux dernières. Une nouvelle police est spécifiée pour le texte dans le cadre de texte, en plus de nouveau texte.

Cet exemple suppose que le document actif contient au moins quatre pages.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.