This example converts all endnotes in the active document to footnotes.
Set myEndnotes = ActiveDocument.Endnotes
If myEndnotes.Count > 0 Then myEndnotes.Convert
This example converts the footnotes in the selection to endnotes.
If Selection.Footnotes.Count > 0 Then Selection.Footnotes.Convert
This example converts the first list template in the active document. If the list template is multiple-level, it becomes single-level, or vice versa.
ActiveDocument.ListTemplates(1).Convert