Propiedad Document.RedoActionsAvailable (Publisher)

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

Sintaxis

expresión. RedoActionsAvailable

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.

El método Redo, a continuación, se utiliza 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 de 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 
 ' The Undo method specifies that all undoable actions be undone. 
 .Undo (.UndoActionsAvailable) 
 ' The Redo method uses RedoActionsAvailable - 2 to specify that 
 ' all redoable actions be redone except for the last two actions. 
 ' The last two actions that are not redone are setting 
 ' .Font.Name and .Text. 
 .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.