Application.Name (Word)

Devuelve el nombre del objeto especificado.

Dim strName As String
strName = Name