Свойство Application.Languages (Word)

Возвращает коллекцию Languages , представляющую языки правописания, перечисленные в диалоговом окне Язык .

Синтаксис

выражение. Languages

выражение: переменная, представляющая объект Application.

Примечания

Сведения о возврате одного члена коллекции см. в разделе Возвращение объекта из коллекции.

Пример

В этом примере возвращается полный путь и имя файла активного словаря орфографии.

Dim dicSpell As Dictionary 
 
Set dicSpell = _ 
 Languages(Selection.LanguageID).ActiveSpellingDictionary 
 
MsgBox dicSpell.Path & Application.PathSeparator & dicSpell.Name

В этом примере массив используется aLang() для хранения имен языков проверки правописания.

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

См. также

Объект Application

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.