次の方法で共有

Global.GetSpellingSuggestions メソッド (Word)

  • [アーティクル]

指定された単語の修正候補を表す SpellingSuggestions コレクションを返します。

構文

式。 GetSpellingSuggestions( _Word_ , _CustomDictionary_ , _IgnoreUppercase_ , _MainDictionary_ , _SuggestionMode_ , _CustomDictionary2_ , _CustomDictionary3_ , _CustomDictionary4_ , _CustomDictionary5_ , _CustomDictionary6_ , _CustomDictionary7_ , _CustomDictionary8_ , _CustomDictionary9_ , _CustomDictionary10_ )

expression 必須です。 'Global' オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Word 必須 String スペル チェックする単語を指定します。
IgnoreUppercase 省略可能 バリアント型 (Variant) True をすべて大文字の単語を無視します。 この引数を省略した場合は、 IgnoreUppercase プロパティの現在の値が使用されます。
SuggestionMode 省略可能 バリアント型 (Variant) スペルの修正候補を表示する方法を指定します。 WdSpellingWordType 定数は、次のいずれか: wdAnagram 、 wdSpellword 、または wdWildcard 。 既定値は、 WdSpellword です。

注釈

単語のスペルが正しい場合、 SpellingSuggestions オブジェクトの Count プロパティは 0 (ゼロ) を返します。

例

次の使用例は、ワイルドカード文字の置換を含む単語 "*ook." の代替スペル候補を * 検索します。 推奨されるスペルはすべてメッセージ ボックスに表示されます。

Sub DisplaySuggestions() 
 Dim sugList As SpellingSuggestions 
 Dim sug As SpellingSuggestion 
 Dim strSugList As String 
 Set sugList = GetSpellingSuggestions(Word:="lrok", _ 
 SuggestionMode:=wdSpellword) 
 If sugList.Count = 0 Then 
 MsgBox "No suggestions." 
 Else 
 For Each sug In sugList 
 strSugList = strSugList & vbTab & sug.Name & vbLf 
 Next sug 
 MsgBox "The suggestions for this word are: " _ 
 & vbLf & strSugList 
 End If 
End Sub

関連項目

グローバル オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。