Propiedad Document.UndoActionsAvailable (Publisher)

Devuelve el número de acciones disponibles en la pila de deshacer. Long de sólo lectura.

Sintaxis

expresión. UndoActionsAvailable

expresión Variable que representa un objeto Document .

Valor devuelto

Long

Ejemplo

En el siguiente ejemplo se agrega un rectángulo que contiene un marco de texto en la cuarta página de la publicación activa. Se establecen algunas propiedades de fuente y el texto del marco de texto. A continuación se comprueba si la fuente del marco de texto es Courier. Si lo es, se utiliza el método Undo con el valor de la propiedad UndoActionsAvailable pasado como parámetro para especificar que se deben deshacer todas las acciones anteriores.

Después se utiliza el método Redo con el valor de la propiedad RedoActionsAvailable menos 2 pasado como parámetro para rehacer todas las acciones excepto las dos últimas. Se especifica una fuente nueva para el texto del marco de texto, además del texto nuevo.

En este ejemplo se supone que el documento activo contiene al menos cuatro páginas.

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 
 .Undo (.UndoActionsAvailable) 
 .Redo (.RedoActionsAvailable - 2) 
 With theShape.TextFrame.TextRange 
 .Font.Name = "Verdana" 
 .Text = "This font is Verdana." 
 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.