0

MS Word で VBA マクロを使用して、段落にエラーのある単語をカウントするにはどうすればよいですか?

やあ。

トランスコードする非常に長いバイリンガル (イタリア語と古代ギリシャ語) のテキストがあります。これは、カスタムおよびクローズド フォント エンコーディングを使用して .pdf から変換された .doc ドキュメントです。
この変換されたドキュメントは、ほとんどがイタリア語の段落で構成されており、意味不明です (フォントにカスタム エンコーディングがあるため)。

トランスコーディング プロセスは検索と置換 (例: "/A" を検索、アルファに置換) ですが、マクロでイタリア語の文字を置換したくありません。

意味不明/ギリシャ語のみを置き換える方法は、各段落のスペルミスを数え、エラーが単語数の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 に答える