Range.Footnotes (Word)

Returns a Footnotes collection that represents all the footnotes in a range.

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

Dim ftnsFootnotes As Footnotes
Set ftnsFootnotes = ActiveDocument.Range.Footnotes