#1
|
|||
|
|||
vba code for footnote & endnote
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. |
#2
|
||||
|
||||
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.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
||||
|
||||
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
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
Thread Tools | |
Display Modes | |
|
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 |