Application.Languages (Word)

Returns a Languages collection that represents the proofing languages listed in the Language dialog box.

For information about returning a single member of a collection, see Returning an object from a collection.

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