Endnotes Collection Object

See Also         Properties         Methods        

A collection of Endnote objects that represents all the endnotes in a selection, range, or document.

Using the Endnotes Collection

Use the Endnotes property to return the Endnotes collection. The following example sets the location of endnotes in the active document.

ActiveDocument.Endnotes.Location = wdEndOfSection

Use the Add method to add an endnote to the Endnotes collection. The following example adds an endnote immediately after the selection.

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

Use Endnotes(index), where index is the index number, to return a single Endnote object. The index number represents the position of the endnote in a selection, range, or document. The following example applies red formatting to the first endnote in the selection.

If Selection.Endnotes.Count >= 1 Then
    Selection.Endnotes(1).Reference.Font.ColorIndex = wdRed
End If