Application.Languages Property (Word)
Office 2013
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.
Dim intCount As Integer Dim langLoop As Language Dim aLang(Languages.Count - 1) As String intCount = 0 For Each langLoop In Languages aLang(intCount) = langLoop.NameLocal intCount = intCount + 1 Next langLoop