collection that represents the proofing languages listed in the Language dialog box (on the Tools menu, click Language, and then click Set Language).
expression.Languages
expression Required. An expression that returns one of the objects in the Applies To list.
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