Sorry but the idea proposed before doesn't do all the work because word still takes over at the end, i.e. the process of closing word can't be stopped as it can be done with Cancel = true in BeforeClose(...)

So I still don't have a solution for this :-(