Word VBA教程:GetSpellingSuggestions方法

应用于 Range对象的 GetSpellingSuggestions方法。

返回一个SpellingSuggestions集合,该集合代表指定区域第一个单词的建议拼写替换单词。

expression.GetSpellingSuggestions(CustomDictionary, IgnoreUppercase, MainDictionary, SuggestionMode, CustomDictionary2, CustomDictionary3, CustomDictionary4, CustomDictionary5, CustomDictionary6, CustomDictionary7, CustomDictionary8, CustomDictionary9, CustomDictionary10)

expression   必需。该表达式返回以上一个对象。

CustomDictionary  Variant 类型,可选。或为返回 Dictionary对象的表达式,或为自定义词典的文件名。

IgnoreUppercase  Variant 类型,可选。如果为 True,则忽略全部大写的单词。如果省略此参数,则使用 IgnoreUppercase属性的当前值。

MainDictionary  Variant 类型,可选。或为返回 Dictionary对象的表达式,或为主词典的文件名。如果不指定主词典,则 Microsoft Word 使用与该区域首字语言格式相对应的主词典。

SuggestionMode  Variant 类型,可选。用来指定 Word 提出拼写建议的方式。可取下列WdSpellingWordType 常量之一。默认值是 WdSpellword。

WdSpellingWordType 可以是下列 WdSpellingWordType 常量之一:
wdAnagram
wdSpellword
wdWildcard

CustomDictionary2 —  CustomDictionary10   Variant 类型,可选。或为返回 Dictionary对象的表达式,或为一个自定义附加词典的文件名。最多可以定义 9 个附加词典。

应用于 Application 和 Global对象的 GetSpellingSuggestions方法。

返回一个SpellingSuggestions集合,该集合代表指定单词的建议拼写替换单词。

expression.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, MainDictionary, SuggestionMode, CustomDictionary2, CustomDictionary3, CustomDictionary4, CustomDictionary5, CustomDictionary6, CustomDictionary7, CustomDictionary8, CustomDictionary9, CustomDictionary10)

expression   必需。该表达式返回以上的一个对象。

Word  String 类型,必需。将接受拼写检查的单词。

CustomDictionary  Variant 类型,可选。或为返回 Dictionary对象的表达式,或为自定义词典的文件名。

IgnoreUppercase  Variant 类型,可选。如果值为 True,则忽略全部大写的单词。如果省略此参数,则使用 IgnoreUppercase属性的当前值。

MainDictionary  Variant 类型,可选。或为返回 Dictionary对象的表达式,或为主词典的文件名。如果不指定主词典,则 Microsoft Word 使用与 Word 的语言格式或该区域首字相对应的主词典。

SuggestionMode  Variant 类型,可选。用来指定 Word 提出拼写建议的方式。可取下列WdSpellingWordType 常量之一。默认值是 WdSpellword。

WdSpellingWordType 可以是下列 WdSpellingWordType 常量之一:
wdAnagram
wdSpellword
wdWildcard

CustomDictionary2 —  CustomDictionary10   Variant 类型,可选。或为返回 Dictionary对象的表达式,或为一个自定义附加词典的文件名。最多可以定义 9 个附加词典。

说明

如果此单词拼写正确,则 SpellingSuggestions对象的 Count属性返回 0(零)。

VBA示例

当应用于 Range对象时。

本示例查看选定内容的首字的各种拼写建议。如果建议存在,则对选定区域运行拼写检查。


If Selection.Range.GetSpellingSuggestions.Count = 0 Then
    Msgbox "No suggestions."
Else
    Selection.Range.CheckSpelling
End If

当应用于 Global对象时。

本示例查找单词“?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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号