Range.Endnotes (Word)

Returns an Endnotes collection that represents all the endnotes in a range.

For information about returning a single member of a collection, see Returning an object from a collection.

Dim endsEndnotes As Endnotes
Set endsEndnotes = ActiveDocument.Range.Endnotes