Application.Languages Property (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.
This example returns the full path and file name of the active spelling dictionary.
Dim dicSpell As Dictionary Set dicSpell = _ Languages(Selection.LanguageID).ActiveSpellingDictionary MsgBox dicSpell.Path & Application.PathSeparator & dicSpell.Name
This example uses the aLang() array to store the proofing language names.