How to convert footnote to endnote in word document

In this section, I discuss about footnote and endnote within word document and how convert from footnote to endnote

What is footnote?

A term used to describe additional information found at the bottom of a page call footnote

What is endnote?

Endnote is additional information or credits given at the end of the document instead of at the end of each page

How to convert from footnote to endnote

ActiveDocument.Footnotes.Convert

Here is the code for converting from footnote to endnote

SubConvertFootnotesEndnotes()

' Convert

    ActiveDocument.Footnotes.Convert

    WithActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _

        ActiveDocument.Content.End).FootnoteOptions

        .Location = wdBottomOfPage

        .NumberingRule = wdRestartContinuous

        .StartingNumber = 1

        .NumberStyle = wdNoteNumberStyleArabic

    EndWith

' Renumbering

    WithActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _

        ActiveDocument.Content.End).EndnoteOptions

        .Location = wdEndOfDocument

        .NumberingRule = wdRestartContinuous

        .StartingNumber = 1

        .NumberStyle = wdNoteNumberStyleArabic

    EndWith

EndSub

How to test this Code

1. Open Ms Word

2. Open VB Editor or Alt+F11

3. Create new module

4. Copy and paste the Code

5. Go back to you word and go to Macro Dialog then select the Macro Name (ConvertFootnotesEndnotes) and Click on Run