Application.Name (Word)

Gibt den Namen des angegebenen Objekts zurück.

Dim strName As String
strName = Name