Sub DeleteAllEndnotes()
' Paul Beverley - Version 19.09.18
' Delete all endnotes

numberENs = ActiveDocument.Endnotes.Count
For i = numberENs To 1 Step -1
  ActiveDocument.Endnotes(i).Delete
  StatusBar = "                                   " & i
Next i
End Sub