Document.VBProject (Word)
Retorna um objeto VBProject do modelo ou documento especificado.
Use essa propriedade para ter acesso a módulos de código e formulários do usuário. Para exibir o objeto VBProject no pesquisador de objetos, marque a caixa de seleção Microsoft Visual Basic for Applications Extensibility na caixa de diálogo Referências (menu Ferramentas), no Editor do Visual Basic.
Set currProj = ActiveDocument.VBProject
MsgBox currProj.Name