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