Avec une macro qui doit se trouver dans un complément ou dans le normal.dotm :

Sub Supprime()
'macro écrite par Pierre CFI
Dim LeF As String
LeF = ActiveDocument.FullName
If MsgBox("Supprimer " & LeF & " ?", vbYesNo) = vbYes Then
ActiveDocument.Close False
Kill LeF
MsgBox LeF & " a été supprimé"
End If
End Sub