Add Method (Endnotes and Footnotes Collections) Example

This example adds an automatically numbered footnote at the end of the selection.

ActiveDocument.Footnotes.Add Range:= Selection.Range , _
    Text:= "The Willow Tree, (Lone Creek Press, 1996)."

This example adds an endnote to the third paragraph in the active document

Set myRange = ActiveDocument.Paragraphs(3).Range
ActiveDocument.Endnotes.Add Range:=myRange, _
    Text:= "Ibid., 314."

This example adds a footnote that uses a custom symbol () for the reference mark.

ActiveDocument.Footnotes.Add Range:= Selection.Range , _
    Text:= "More information in the full report.", _
    Reference:= "{Symbol -3998}"