Selection.Footnotes (Word)

Returns a Footnotes collection that represents all the footnotes in a range, selection, or document.

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

Selection.Collapse Direction:=wdCollapseStart 
Selection.Footnotes.Add Range:=Selection.Range, _ 
 Text:="(Lone Creek Press, 1995)"