Application.MacroContainer (Word)

Returns a Template or Document template that represents the template or document in which the module that contains the running procedure is stored.

Set cntnr = MacroContainer 
MsgBox cntnr.Name