VBA 拼写检查中的错误计数答案

【问题标题】：Error count in VBA spellcheckVBA 拼写检查中的错误计数
【发布时间】：2013-08-13 20:42:45
【问题描述】：

在 MS Word 中使用 VBA 宏，我如何计算段落中有错误的单词？

嗨。

我有很长的双语（意大利语和古希腊语）文本要转码；它是从 .pdf 转换而来的 .doc 文档，具有自定义和封闭的字体编码。
此转换后的文档主要由意大利语段落和乱码组成（因为字体具有自定义编码）。

转码过程将是查找和替换（例如，查找“/A”，替换为 alpha），但我不希望宏替换意大利字母。

我得出的结论是，一种仅替换乱码/希腊语的方法是计算每个段落的拼写错误并仅在错误 > 5-10 时转换段落字数的百分比。（这是我的第一个认真 vba宏，如果有人对其他方法有任何建议，欢迎提出。另外，我希望我的英语是可以接受和可读的。

【问题讨论】：

标签： vba character-encoding replace ms-word

【解决方案1】：

Function ErrorPercent(para As Paragraph) As Double

    With para.Range
        ErrorPercent = (.GrammaticalErrors.Count + .SpellingErrors.Count) / .Words.Count
    End With

End Function

【讨论】：