Propiedad UndoRecord.CustomRecordName (Word)

Devuelve una cadena que especifica la entrada que aparece en la pila de deshacer cuando todos personalizada deshacer acciones se haya completado. Solo lectura.

Sintaxis

expresión. CustomRecordName

Expresión Variable que representa un objeto UndoRecord .

Comentarios

Si los registros de Deshacer personalizados están anidados en otros registros de Deshacer personalizados, esta propiedad especifica qué cadena aparece en la pila de Deshacer personalizada después de que todas las acciones de Deshacer se hayan completado. Si hay varias llamadas al método StartCustomRecord anidadas, esta propiedad devolverá la cadena especificada por la primera llamada. Si no hay ninguna acción activa, la propiedad devuelve una cadena vacía.

Ejemplo:

En el ejemplo de código siguiente se crea registros de deshacer personalizada anidada. Cuando finalice el código, se inserta un mensaje acerca de cada registro de deshacer en el documento activo y "Primero llamada" aparece como la entrada en la pila de deshacer.

Nota:

[!NOTA] Para ejecutar este ejemplo de código, coloca el archivo de código para ThisDocument en Visual Basic para aplicaciones de explorador del proyecto.

Sub WalkUndoRecordStack()
Dim objUndo As UndoRecord
 
'Create UndoRecord object
Set objUndo = Application.UndoRecord
 
'Begin first custom record
objUndo.StartCustomRecord ("First call")
    'Begin nested second custom record
    objUndo.StartCustomRecord ("Second call")
        'Begin nested third undo record
        objUndo.StartCustomRecord ("Third call")
            'Message for the third call is written first to the document
            Me.Content.InsertAfter "Third call. "
            'End third custom record
        objUndo.EndCustomRecord
        'Message for the second call is written second to the document
        Me.Content.InsertAfter "Second call. "
    'End second custom record
    objUndo.EndCustomRecord
    'Message for first call is written third to the document
    Me.Content.InsertAfter "First call. "
'End first custom record
objUndo.EndCustomRecord

Set objUndo = Nothing
End Sub

Consulte también

Objeto UndoRecord

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.