VBA拼写检查中的错误计数_Vba_Character Encoding_Replace_Ms Word

VBA拼写检查中的错误计数

vba character-encoding replace ms-word

VBA拼写检查中的错误计数,vba,character-encoding,replace,ms-word,Vba,Character Encoding,Replace,Ms Word,在MS Word中使用VBA宏，如何计算段落中出现错误的单词嗨我有一个很长的双语（意大利语和古希腊语）文本要转码；它是从.pdf转换而来的.doc文档，具有自定义和封闭的字体编码。此转换文档主要由意大利语段落和胡言乱语组成（因为字体具有自定义编码）代码转换过程将是一个Find&Replace（例如Find“/a”，Replace为alpha），但我不希望宏替换意大利语字母我得出的结论是，只替换乱七八糟/希腊文的一种方法是计算每个段落的拼写错误，并且仅当错误超过字数的5-10%时才转换段

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

嗨

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

代码转换过程将是一个Find&Replace（例如Find“/a”，Replace为alpha），但我不希望宏替换意大利语字母

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

Function ErrorPercent(para As Paragraph) As Double

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

End Function