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
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de