Microsoft Word 中的拼写错误

Question

我正在处理 Microsoft Word 中的拼写错误。只要有几个拼写错误，访问 SpellingErrors 集合就会变得非常慢（至少对于 For/Next 或 For/Each 循环而言）。

有没有办法快速获取列表（制作副本、复制条目、停止集合的动态性质）？我只需要一个列表，它的快照，并且它不是动态的或实时的。

Answer 1

以下是我模拟创建和检查拼写错误的方法：

Sub GetSpellingErrors()
    ''# Turn off auto-spellchecking
    Application.Options.CheckSpellingAsYouType = False
    ''# Set document
    Dim d As Document
    Set d = ActiveDocument
    ''# Insert misspelled text
    d.Range.Text = "I wantedd to beet hym uup to rite some rongs."
    ''# Get spelling errors
    Dim spellErrs As ProofreadingErrors
    Set spellErrs = d.SpellingErrors
    ''# Dump spelling errors to Immediate window
    For spellErr = 1 To spellErrs.Count
        Debug.Print spellErrs(spellErr).Text
    Next
    ''# Turn back auto-spellchecking
    Application.Options.CheckSpellingAsYouType = True
End Sub

在我这边进行的测试在 Word 2003 和 Word 2010 中运行得非常快。请注意，这会给您六个拼写错误，而不是四个。虽然“beet”和“rite”是英语单词，但在这句话的上下文中它们被认为是“拼写错误”。

请注意 Application.Options.CheckSpellingAsYouType = False。这将关闭自动拼写错误检测（红色波浪线）。这是一个应用程序范围的设置 - 不仅仅是针对单个文档 - 因此最好的做法是重新打开它，如果这是最终用户在 Word 中所期望的，就像我在最后所做的那样。

现在，如果在 Word 2007/2010 中启用检测（这不适用于 2003 及更早版本），您只需读取 XML (WordprocessingML) 中拼写错误的单词即可。该解决方案的设置和管理更加复杂，并且只有在您不使用 VBA 而是使用 Open XML 进行编程时才应该使用。使用 Linq-to-XML 进行简单的查询就足以获得所有拼写错误的单词的 IEnumerable。您将转储每个 w:type="spellStart" 和 w:type="spellEnd" 属性之间的 XML 的所有 .Value 元素。上面生成的文档在 WordprocessingML 中有这样一段：

<w:p w:rsidR="00A357E4" w:rsidRDefault="0008442E">
  <w:r>
    <w:t xml:space="preserve">I </w:t>
  </w:r>
  <w:proofErr w:type="spellStart"/>
  <w:r>
    <w:t>wa</w:t>
  </w:r>
  <w:bookmarkStart w:id="0" w:name="_GoBack"/>
  <w:bookmarkEnd w:id="0"/>
  <w:r>
    <w:t>ntedd</w:t>
  </w:r>
  <w:proofErr w:type="spellEnd"/>
  <w:r>
    <w:t xml:space="preserve"> to </w:t>
  </w:r>
  <w:proofErr w:type="spellStart"/>
  <w:r w:rsidR="003F2F98">
    <w:t>b</w:t>
  </w:r>
  <w:r w:rsidR="005D3127">
    <w:t>eet</w:t>
  </w:r>
  <w:proofErr w:type="spellEnd"/>
  <w:r w:rsidR="005D3127">
    <w:t xml:space="preserve"> </w:t>
  </w:r>
  <w:proofErr w:type="spellStart"/>
  <w:r w:rsidR="005D3127">
    <w:t>hym</w:t>
  </w:r>
  <w:proofErr w:type="spellEnd"/>
  <w:r w:rsidR="005D3127">
    <w:t xml:space="preserve"> </w:t>
  </w:r>
  <w:proofErr w:type="spellStart"/>
  <w:r w:rsidR="005D3127">
    <w:t>uup</w:t>
  </w:r>
  <w:proofErr w:type="spellEnd"/>
  <w:r w:rsidR="005D3127">
    <w:t xml:space="preserve"> to </w:t>
  </w:r>
  <w:proofErr w:type="spellStart"/>
  <w:r w:rsidR="005D3127">
    <w:t>rite</w:t>
  </w:r>
  <w:proofErr w:type="spellEnd"/>
  <w:r w:rsidR="005D3127">
    <w:t xml:space="preserve"> some </w:t>
  </w:r>
  <w:proofErr w:type="spellStart"/>
  <w:r w:rsidR="005D3127">
    <w:t>rongs</w:t>
  </w:r>
  <w:proofErr w:type="spellEnd"/>
  <w:r w:rsidR="005D3127">
    <w:t xml:space="preserve">. </w:t>
  </w:r>
</w:p>