Eliminare le note in word

[luck]

Sub Macro1()
    
For Each nota In Selection.Endnotes
    nota.Delete
Next

End Sub