Application.Languages Property (Word)
Returns a Languages collection that represents the proofing languages listed in the Language dialog box (on the Tools menu, click Language, and then click Set Language).
Syntax
expression .Languages
expression A variable that represents an Application object.
Remarks
For information about returning a single member of a collection, see Returning an Object from a Collection.
Example
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