0

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

你好。

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

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

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

4

1 回答 1

0 
Function ErrorPercent(para As Paragraph) As Double

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

End Function
于 2013-08-13T12:42:45.050 回答