I am using the following VBA code to make a message box appear while saving the Word document,
Public WithEvents appWord as Word.Application Private Sub ap
With Word 2016 I found that a change was necessary
Set X.App = Word.Application
should be
Set X.appWord = Word.Application