统计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 & "个"