Convert endnote/footnote to regular text

macropod · #2 05-20-2012, 03:37 PM

Hi BC,

Trying to convert footnotes to plain text and keeping them on the same page(s) as the footnotes from which they were derived is a real minefield. Converting endnotes is much easier though. Try:

Code:

Sub UnLinkEndNotes()
Application.ScreenUpdating = False
Dim nRng As Range, eNote As Endnote, nRef As String
With ActiveDocument
  For Each eNote In .Endnotes
    With eNote
      With .Reference.Characters.First
        .Collapse wdCollapseStart
        .InsertCrossReference wdRefTypeEndnote, wdEndnoteNumberFormatted, eNote.Index
        nRef = .Characters.First.Fields(1).Result
        .Characters.First.Fields(1).Unlink
      End With
      .Range.Cut
    End With
    If .Range.EndnoteOptions.Location = wdEndOfSection Then
      Set nRng = eNote.Range.Sections.First.Range
    Else
      Set nRng = .Range
    End If
    With nRng
      .Collapse wdCollapseEnd
      .End = .End - 1
      If .Characters.Last <> Chr(12) Then .InsertAfter vbCr
      .InsertAfter nRef & " "
      With .Paragraphs.Last.Range
        .Style = "Endnote Text"
        .Words.First.Style = "Endnote Reference"
      End With
      .Collapse wdCollapseEnd
      .Paste
      If .Characters.Last = Chr(12) Then .InsertAfter vbCr
    End With
  Next
  For Each eNote In .Endnotes
    eNote.Delete
  Next
End With
Set nRng = Nothing
Application.ScreenUpdating = True
End Sub

Footnotes can be converted in essentially the same way, but they effectively become another series of endnotes.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to convert text to endnote?	Orifacious	Word VBA	27	03-29-2022 02:58 PM
Convert - EndNote to Word's endnotes	Boatwrenchv8	Word	3	05-17-2012 04:56 PM
Endnote in footnote?	kerstin	Word	2	06-26-2011 11:23 PM
Cross-reference endnote text	smed	Word	3	01-14-2011 03:34 PM
How do I have headers and footers appear as regular text for the whole document?	user908045	Word	0	03-13-2010 12:41 PM