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的注意，这将会给你六个拼写错误，不四。虽然“甜菜”和“仪式”是英文单词，但在这句话中，它们被认为是“拼写错误的”。

请注意Application.Options.CheckSpellingAsYouType = False。这会关闭自动拼写错误检测（红色字幕）。这是一个应用程序范围内的设置 - 不仅仅针对单个文档 - 所以最好的做法是将它重新打开，如果终端用户在Word中期望的是最终用户所期待的。

现在，如果在Word 2007/2010中进行检测（这对2003和更早版本不起作用），则可以简单地读取XML（WordprocessingML）中的拼写错误的单词。这种解决方案的设置和管理比较复杂，只有在不使用VBA进行编程而是使用Open XML时才能使用。使用Linq到XML的简单查询将足以获得所有拼写错误的单词的IEnumerable。您可以转储<w:proofErr/>元素的每个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>