Объект ProofreadingErrors (Word)
Коллекция орфографических и грамматических ошибок для указанного документа или диапазона.
Замечания
Используйте свойство SpellingErrors или GrammaticalErrors , чтобы вернуть коллекцию ProofreadingErrors . В следующем примере производится подсчет орфографических и грамматических ошибок в выделенном фрагменте и отображение результатов в окне сообщения.
Set pr1 = Selection.Range.SpellingErrors
sc = pr1.Count
Set pr2 = Selection.Range.GrammaticalErrors
gc = pr2.Count
Msgbox "Spelling errors: " & sc & vbCr _
& "Grammatical errors: " & gc
Используйте spellingErrors (Index), где Index — это номер индекса, чтобы вернуть одну орфографическую ошибку (представленную объектом Range ). В следующем примере в выделении обнаруживается вторая орфографическая ошибка, а затем выбирается.
Set myRange = Selection.Range.SpellingErrors(2)
myRange.Select
Используйте GrammarErrors (Index), где Index — это номер индекса, чтобы вернуть одну грамматическую ошибку (представленную объектом Range ). В следующем примере возвращается предложение, содержащее первую грамматическую ошибку в выделенном фрагменте.
Set myRange = Selection.Range.GrammaticalErrors(1)
Msgbox myRange.Text
Свойство Count для этой коллекции в документе возвращает количество элементов только в основной истории. Для подсчета элементов в других историях используйте коллекцию с объектом Range . Если все слова в документе или диапазоне написаны правильно и грамматически верны, свойство Count для объекта ProofreadingErrors возвращает значение 0 (ноль), а свойства SpellingChecked и GrammarChecked возвращают значение True.
Примечание.
Объект ProofreadingError отсутствует; Вместо этого каждый элемент в коллекции ProofreadingErrors является объектом Range , который представляет одну орфографическую или грамматическую ошибку.
См. также
Справочник по объектной модели Word
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.