Méthode Document.Redo (Publisher)

Article
04/07/2023

Réalise de nouveau la dernière action ou un nombre spécifié d'actions. Correspond à la liste des éléments qui s’affiche lorsque vous choisissez la flèche en regard du bouton Rétablir dans la barre d’outils Standard . L’appel de cette méthode inverse la méthode Undo .

Syntaxe

expression. Rétablir (nombre)

Expression Variable qui représente un objet Document .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Count	Facultatif	Long	Spécifie le nombre d'actions à rétablir. La valeur par défaut est 1, ce qui signifie qu'en cas d'omission seule la dernière action est rétablie.

Valeur renvoyée

Aucune

Remarques

Si elle est appelée lorsqu’il n’y a aucune action sur la pile de restauration par progression, ou lorsque Count est supérieur au nombre d’actions qui résident actuellement sur la pile, la méthode Redo rétablit autant d’actions que possible et ignore le reste.

Le nombre maximal d’actions pouvant être rétablies en un appel de Redo est 20.

Exemple

L’exemple suivant utilise la méthode Redo pour rétablir un sous-ensemble des actions qui ont été annulées à l’aide de la méthode Undo .

La première partie (Part 1) crée un rectangle qui contient un cadre de texte sur la quatrième page de la composition active. Diverses propriétés de police sont définies et du texte est ajouté au cadre de texte. Dans ce cas, le texte « This font is Courier » présente la mise en forme de police Courier gras 12 points.

Partie 2 vérifie si le texte dans le cadre de texte est Verdana police. Si ce n’est pas le cas, la méthode Undo est utilisée pour annuler les quatre dernières actions sur la pile d’annulation. La méthode Redo est ensuite utilisée pour rétablir les deux premières des quatre dernières actions qui viennent d’être annulées. Dans ce cas, la troisième action (définition de la taille de police) et la quatrième action (définition de la police en gras) sont rétablies. Le nom de la police est devient Verdana et le texte est modifié.

Dim thePage As page 
Dim theShape As Shape 
Dim theDoc As Publisher.Document 
 
Set theDoc = ActiveDocument 
Set thePage = theDoc.Pages(4) 
 
' Part 1 
With theDoc 
 With thePage 
 ' Setting the shape creates the first action 
 Set theShape = .Shapes.AddShape(msoShapeRectangle, _ 
 75, 75, 190, 30) 
 ' Setting the text range creates the second action 
 With theShape.TextFrame.TextRange 
 ' Setting the font size creates the third action 
 .Font.Size = 12 
 ' Setting the font to bold creates the fourth action 
 .Font.Bold = msoTrue 
 ' Setting the font name creates the fifth action 
 .Font.Name = "Courier" 
 ' Setting the text creates the sixth action 
 .Text = "This font is Courier." 
 End With 
 End With 
 
 ' Part 2 
 If Not thePage.Shapes(1).TextFrame.TextRange.Font.Name = "Verdana" Then 
 .Undo (4) 
 With thePage 
 With theShape.TextFrame.TextRange 
 ' Redo redoes the first two of the four actions that were just undone 
 theDoc.Redo (2) 
 .Font.Name = "Verdana" 
 .Text = "This font is Verdana." 
 End With 
 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.

Partager via