Método Document.Undo (Publisher)

Deshace 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 Deshacer de la barra de herramientas de Standard.

Sintaxis

expresión. Deshacer (recuento)

expresión Variable que representa un objeto Document .

Parameters

Observaciones

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

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

Ejemplo

En el ejemplo siguiente se usa el método Undo para deshacer acciones que no cumplen criterios específicos.

En la parte 2 del ejemplo se agrega una forma de llamada rectangular a la cuarta página de la publicación activa y se agrega texto a la llamada. Este proceso crea tres acciones.

Parte 2 del ejemplo se comprueba si la fuente del texto agregado a la llamada es Verdana. Si no es así, el método Undo se usa para deshacer todas las acciones disponibles (el valor de la propiedad UndoActionsAvailable se usa para especificar que todas las acciones se deshacen). Borra todas las acciones de la pila. A continuación, se agregan una nueva forma de rectángulo y un marco de texto, y el marco de texto se rellena con texto verdana.

Dim thePage As page 
Dim theShape As Shape 
Dim theDoc As Publisher.Document 
 
Set theDoc = ActiveDocument 
Set thePage = theDoc.Pages(4) 
 
With theDoc 
 ' Part 1 
 With thePage 
 ' Setting the shape creates the first action 
 Set theShape = .Shapes.AddShape(msoShapeRectangularCallout, _ 
 75, 75, 120, 30) 
 ' Setting the text range creates the second action 
 With theShape.TextFrame.TextRange 
 ' Setting the text creates the third action 
 .Text = "This text is not Verdana." 
 End With 
 End With 
 
 ' Part 2 
 If Not thePage.Shapes(1).TextFrame.TextRange.Font.Name = "Verdana" Then 
 ' UndoActionsAvailable = 3 
 .Undo (.UndoActionsAvailable) 
 With thePage 
 Set theShape = .Shapes.AddShape(msoShapeRectangle, _ 
 75, 75, 120, 30) 
 With theShape.TextFrame.TextRange 
 .Font.Name = "Verdana" 
 .Text = "This text 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.