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

word文档字符代码 统计Word文档中的中文字符数的VB代码是什么?，对于很多高手来说这个可能并不是一个问题，但是对于很多菜鸟来说关于word文档字符代码这个问题还是有点难度的，但是今天这篇word文档字符代码 统计Word文档中的中文字符数的VB代码是什么?的文章就是帮助菜鸟们解决这些问题的，菜鸟们赶快来围观吧！

问题：统计 Word文档中的中文字符数的 VB 代码是什么？假设一篇文档中既有中文又有英文，如何才能通过代码取得与以下操作获得的结果相同的数字：“工具－字数统计－中文字符和朝鲜语单词”？当然我知道，documentObj.words.count 求得的字数没用。解答：参考以下 VBA 程式碼：N = 0For Each szWord In ActiveDocument.WordsFor I = 1 To Len(szWord)r = LenB(StrConv(Mid(szWord, I, 1), vbFromUnicode))If r = 2 Then N = N + 1Next INext szWordMsgBox "中文字共" & N & "个"