Question

多种对象 ProofreadingErrors (Range) 多种对象

由指定文档或区域中的拼写错误和语法错误组成的集合。不存在 ProofreadingError 对象。ProofreadingErrors 集合中的每一项都是代表一个拼写或语法错误的 Range 对象。

使用 ProofreadingErrors 集合

用 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) 可返回（由 Range 对象表示的）单独的拼写错误，其中index 为索引序号。下例查找所选内容中的第二个拼写错误并选定该错误。

Set myRange = Selection.Range.SpellingErrors(2)
myRange.Select

用 GrammarErrors(index) 可返回（Range 对象表示的）单个语法错误，其中index 为索引序号。下例返回所选内容中含有第一个语法错误的句子。

Set myRange = Selection.Range.GrammaticalErrors(1)
Msgbox myRange.Text

说明

文档中本集合的 Count 属性仅返回文档正文部分的项目数。若要计算其他部分的项目数，请使用 Range 对象的本集合。如果所有文档或区域中的拼写和语法都正确，ProofreadingErrors 对象的 Count 属性返回 0，并且 SpellingChecked 属性和 GrammarChecked 属性返回 True。