次の方法で共有


Application.Languages プロパティ (Word)

[言語] ダイアログ ボックスに一覧表示されている校正言語を表す Languages コレクションを返します。

構文

expression. Languages

expressionApplicationオブジェクトを表す変数 。

注釈

コレクションの 1 つのメンバーを返す方法については、「コレクション からオブジェクトを返す」を参照してください。

次の使用例は、有効なスペル チェック用辞書の絶対パスとファイル名を取得します。

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 のサポートおよびフィードバックを参照してください。