Método Document.Redo (Publisher)

Rehace la última acción o un número especificado de acciones. Corresponde a la lista de elementos que aparece al elegir la flecha situada junto al botón Rehacer de la barra de herramientas de Standard. Al llamar a este método se invierte el método Undo .

Sintaxis

expresión. Rehacer (recuento)

expresión Variable que representa un objeto Document .

Parameters

Valor devuelto

Nothing

Comentarios

Si se llama cuando no hay ninguna acción en la pila de rehacer, o cuando Count es mayor que el número de acciones que residen actualmente en la pila, el método Redo rehacerá tantas acciones como sea posible e omitirá el resto.

El número máximo de acciones que se pueden rehacer en una llamada a Redo es 20.

Ejemplo

En el ejemplo siguiente se usa el método Redo para rehacer un subconjunto de las acciones que se deshacen mediante el método Undo .

En la primera parte se crea un rectángulo que contiene un marco de texto en la cuarta página de la publicación activa. Se establecen las diversas propiedades de fuentes y se agrega texto al marco de texto. En este caso, se establece la fuente Courier negrita de 12 puntos para el texto "This font is Courier".

Parte 2 comprueba si el texto del marco de texto tiene la fuente Verdana. Si no es así, el método Undo se usa para deshacer las cuatro últimas acciones de la pila de deshacer. A continuación, se usa el método Redo para rehacer las dos primeras de las cuatro últimas acciones que se acaban de deshacer. En este caso, se rehacen la tercera acción (establecer el tamaño de fuente) y la cuarta acción (configuración de la fuente en negrita). A continuación, se cambia el nombre de fuente a Verdana y se modifica el texto.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.