UndoRecord.CustomRecordName property (Word)
Returns a String that specifies the entry that appears on the undo stack when all custom undo actions have completed. Read-only.
Syntax
expression. CustomRecordName
expression A variable that represents an UndoRecord object.
Remarks
If custom undo records are nested within other custom undo records, this property specifies what string appears on the undo stack after all custom undo actions have completed. If multiple calls to the StartCustomRecord method are nested, the string specified by the first call will be returned by this property. If no action is active, the property returns an empty string.
Example
The following code example creates nested custom undo records. When the code completes, a message about each undo record is inserted into the active document, and "First call" appears as the entry on the undo stack.
Note
To run this code example, place it the code file for ThisDocument in the Visual Basic for Applications Project Explorer.
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
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.