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.