Languages Property Example

This example returns the full path and file name of the active spelling dictionary.

Set mySpell = _
    Languages(Selection.LanguageID).ActiveSpellingDictionary
MsgBox mySpell.Path & Application.PathSeparator & mySpell.Name

This example uses the aLang() array to store the proofing language names.

ReDim aLang(Languages.Count - 1)
i = 0
For Each myLanguage In Languages
    aLang(i) = myLanguage.NameLocal
    i = i + 1
Next myLanguage