字数统计不符

dongdonggege

在一篇文档中，我使用菜单的工具——字数统计，与程序计算，有差距。比如我想统计这句话：请严格按照下面的步骤执行

工具——字数统计结果：12个
我使用下面的程序结果是：13个

1. Sub Macro5()
   
2.     n = ActiveDocument.Paragraphs.Count '段落总数
   
3.     For i = 1 To n
   
4.         j = ActiveDocument.Paragraphs(i).Range.Characters.Count '段落字符总数
   
5.     MsgBox j
   
6.     Next
   
7. End Sub

复制代码

请问：是什么原因？难道程序有问题？请大侠帮我修改下，谢谢！

dafanshu1

程序将段落最后的回车符也算在内了。
你用鼠标仅选中文字部分和整段选中，分别执行MsgBox Selection.Characters.Count就知道了

dongdonggege

dafanshu1 发表于 2016-6-21 13:16
程序将段落最后的回车符也算在内了。
你用鼠标仅选中文字部分和整段选中，分别执行MsgBox Selection.Chara ...

怎么修改呢？

dafanshu1

dongdonggege 发表于 2016-6-21 14:14
怎么修改呢？

减1就是了。