Application.Languages (Word)
Devuelve una colección Languages que representa los idiomas de revisión que aparecen en el cuadro de diálogo idioma .
Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.
Dim dicSpell As Dictionary
Set dicSpell = _
Languages(Selection.LanguageID).ActiveSpellingDictionary
MsgBox dicSpell.Path & Application.PathSeparator & dicSpell.Name