Activedocument.Footnotes.Reference.Text

[macropod]

Hi dorogoi,

Here's an enhanced version of the macro, that faithfully replicates the referencing type (eg roman numerals):

Sub UnLinkEndNotes()
Application.ScreenUpdating = False
Dim eRng As Range, eNote As Endnote, eRef As String
With ActiveDocument
  For Each eNote In .Endnotes
    With eNote
      With .Reference.Characters.First
        .Collapse
        .InsertCrossReference wdRefTypeEndnote, wdEndnoteNumberFormatted, eNote.Index
        eRef = .Characters.First.Fields(1).Result
        .Characters.First.Fields(1).Unlink
      End With
      .Range.Cut
    End With
    Set eRng = .Range
    With eRng
      .InsertAfter vbCr & eRef & " - "
      .Start = .End
      .Paste
      .Style = "Endnote Text"
    End With
  Next
  For Each eNote In .Endnotes
    eNote.Delete
  Next
End With
Set eRng = Nothing
Application.ScreenUpdating = True
End Sub

To get the reference type, I (simply?) inserted a cross-reference to the endnote and captured the cross-reference text before unlinking it.