Application.MacroContainer (Word)

Devuelve un objeto Template o Document que representa la plantilla o el documento en el que se almacena el módulo que contiene el procedimiento en ejecución.

Set cntnr = MacroContainer 
MsgBox cntnr.Name