Selection.Endnotes (Word)
Returns an Endnotes collection that represents all the endnotes contained within a selection.
For information about returning a single member of a collection, see Returning an object from a collection.
With Selection.Endnotes
.Location = wdEndOfDocument
.NumberStyle = wdNoteNumberStyleLowercaseRoman
End With