It does work when you click CTRL+S, but you need the part of the macro (below) to setup the Event and that runs when you next open the document, or if you run the macro manually

Private Sub Document_Open()
Set App = Word.Application
End Sub