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	會指定 Word 進行拼字建議的方式。 可以是下列 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

另請參閱

Global 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。