Application.Languages (Word)

Retorna uma coleção Languages que representa os idiomas de revisão de ortografia listados na caixa de diálogo idioma .

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

Dim dicSpell As Dictionary 
 
Set dicSpell = _ 
 Languages(Selection.LanguageID).ActiveSpellingDictionary 
 
MsgBox dicSpell.Path & Application.PathSeparator & dicSpell.Name