Application.MacroContainer (Word)

Retorna um objeto Template ou Document que representa o modelo ou documento no qual está armazenado o módulo que contém o procedimento em execução.

Set cntnr = MacroContainer 
MsgBox cntnr.Name