统计Word文档中的中文字符数的VB代码是什么?

题目：统计 Word文档中的中文字符数的 VB 代码是甚么？
假定一篇文档中既有中文又有英文，若何才能经过过程代码获得与以下操纵获得的成果不异的数字：“东西－字数统计－中文字符和朝鲜语单词”？当然我知道，documentObj.words.count 求得的字数没用。

解答：
参考以下 VBA 程式碼：
N = 0
For Each szWord In ActiveDocument.Words
For I = 1 To Len(szWord)
r = LenB(StrConv(Mid(szWord, I, 1), vbFromUnicode))
If r = 2 Then N = N + 1
Next I
Next szWord
MsgBox "中文字共" & N & "个"