Friday, March 14, 2014

How to convert footnote to endnote in word document

Leave a Comment


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

0 comments :

Post a Comment