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

Sintaxis

más sencilla.Deshacer (recuento)

expresión Variable que representa un objeto Document .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Count	Opcional	Long	Especifica el número de acciones que se van a deshacer. El valor predeterminado es 1, lo que significa que, si se omite, sólo se deshará la última acción.

Comentarios

Si se llama cuando no hay acciones en la pila de deshacer o cuando Recuento es mayor que el número de acciones que residen actualmente en la pila, el método Deshacer deshará tantas acciones como sea posible e ignorará 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 utiliza el método Deshacer 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í, se usa el método Undo para deshacer todas las acciones disponibles (el valor de la propiedad UndoActionsAvailable se usa para especificar que se deshagan todas las acciones). Borra todas las acciones de la pila. A continuación, se añade una nueva forma de rectángulo y un nuevo 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.