Метод Range.GetSpellingSuggestions (Word)
Возвращает коллекцию SpellingSuggestions , представляющую слова, предложенные в качестве замены для первого слова в указанном диапазоне.
Синтаксис
expression. GetSpellingSuggestions (CustomDictionary, IgnoreUppercase, MainDictionary, SuggestionMode, CustomDictionary2, CustomDictionary3, CustomDictionary4, CustomDictionary5, CustomDictionary6, CustomDictionary7, CustomDictionary8, CustomDictionary9, CustomDictionary10)
выражение (обязательно). Переменная, представляющая объект Range .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| CustomDictionary | Необязательный | Variant | Выражение, возвращающее объект Dictionary , или имя файла настраиваемого словаря. |
| IgnoreUppercase | Необязательный | Variant | Значение true , чтобы игнорировать слова во всех прописных буквах. Если этот аргумент опущен, используется текущее значение свойства IgnoreUppercase . |
| MainDictionary | Необязательный | Variant | Выражение, возвращающее объект Dictionary , или имя файла основного словаря. Если не указать основной словарь, Microsoft Word использует основной словарь, соответствующий формату языка первого слова в диапазоне. |
| SuggestionMode | Необязательный | Variant | Указывает способ, с помощью функции word выдается орфографические предложения. Может быть одной из следующих констант WdSpellingWordType . Значение по умолчанию — wdSpellword. |
| CustomDictionary2 — CustomDictionary10 | Необязательный | Variant | Выражение, возвращающее объект Dictionary , или имя файла дополнительного настраиваемого словаря. Можно указать целых девять дополнительных словарей. |
Возвращаемое значение
SpellingSuggestions
Замечания
Если слово написано правильно, свойство Count объекта SpellingSuggestions возвращает значение 0 (ноль).
Пример
В этом примере выполняется поиск альтернативных вариантов написания первого слова в выбранном диапазоне. Если есть предложения, в примере выполняется проверка орфографии для выделенного фрагмента.
If Selection.Range.GetSpellingSuggestions.Count = 0 Then
Msgbox "No suggestions."
Else
Selection.Range.CheckSpelling
End If
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.