vba code for footnote & endnote

romanticbiro · #1 02-11-2017, 11:53 AM

hello dears

please help me to manage this task, i've some documents contain big number of footnote and end note, i need to convert their references and footnotes / endnotes text to normal text in body document (body text)
and if possible put them between prackets (reference #) (footnote text / endnote text)
thanks for your great support.

macropod · #2 02-11-2017, 10:33 PM

Word cannot convert footnote references or endnote references to normal text and keep the footnotes or endnotes intact. Although a macro could be used to preserve any endnote content - since they only appear at the end of the relevant Sections - doing the same for footnotes is fraught with difficulty. The simplest way to achieve such an outcome is to save the document as a PDF, then reimport the PDF into Word.

gmayor · #3 02-11-2017, 10:49 PM

Maybe something like

Code:

Sub Foot_EndNotesToText()
Dim oFNote As Footnote
Dim oENote As EndNote
Dim iRef As Integer
Dim sRef As String
Dim orng As Range
    For Each oFNote In ActiveDocument.Footnotes
        With oFNote
            iRef = .Index
            sRef = .Range.Text
            Set orng = .Reference
            .Delete
            orng.Text = "(reference " & iRef & ") (" & sRef & ")"
        End With
    Next oFNote
    For Each oENote In ActiveDocument.Endnotes
        With oENote
            iRef = .Index
            sRef = .Range.Text
            Set orng = .Reference
            .Delete
            orng.Text = "(reference " & iRef & ") (" & sRef & ")"
        End With
    Next oENote
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Convert endnote/footnote to regular text	Cobb78	Word	5	07-11-2016 06:23 AM
How to keep the footnote(endnote) reference numbers when pasting text between two documents?	gn4619	Word	4	10-22-2015 08:01 AM
VBA code for Microsoft Word macro — select text and insert footnote	ndnd	Word VBA	10	01-06-2015 01:47 PM
VBA code to read number of footnote and enter in text	rekent	Word VBA	2	05-13-2014 06:53 AM
Endnote in footnote?	kerstin	Word	2	06-26-2011 11:23 PM