Word具有统计字数的功能，操作步骤如下：
1.打开Word文档；
2.切换到“审阅”功能区。在“校对”分组中单击“字数统计”按钮，如图；
3.在打开的“字数统计”对话框中可以看到Word文档的页数、字数、段落数、行数、中文字符数等信息，如图。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2010-04-18
工具--字数统计，里面有 字数、字符数（不计空格）、字符数（计空格），非中文单词，基本上就能计算出WORD里的中文字数了本回答被提问者采纳
第2个回答 2010-04-18
在word的上方 菜单栏 中 有一个工具菜单 打开工具菜单 有一个字数统计 就可以了
第3个回答 2010-04-18
【工具】菜单→【字数统计】命令
第4个回答 2010-04-18
以上的方法统计出的中文字数还包括了中文标点符号的个数，如果想准确的查出中门字数，可以试试下面的自定义函数
将代码复制，打开EXCEL，工具--宏--录制新宏，确定，然后停止，接下来点工具--宏，VBA编辑器，双击模块1，把代码复制进去
然后返回SHEET1,把WORD里的文章复制到单元格里，一般是一段一格，比如A1里有一段文字，那B1=TAX(A1),C1=LEN(B1),然后同时向下填充公式到最后一段，最后把C列相加，就得到全部中文字数了
Function TAX(b As Range)
Dim m, n As Long
m = Len(b)
c = ""
For i = 1 To m Step 1
qushu = Mid(b, i, 1)
n = 65536 + Asc(qushu)
If n > 45217 And n < 65184 Then
c = c & qushu
End If
Next i
TAX = c
End Function
将代码复制，打开EXCEL，工具--宏--录制新宏，确定，然后停止，接下来点工具--宏，VBA编辑器，双击模块1，把代码复制进去
然后返回SHEET1,把WORD里的文章复制到单元格里，一般是一段一格，比如A1里有一段文字，那B1=TAX(A1),C1=LEN(B1),然后同时向下填充公式到最后一段，最后把C列相加，就得到全部中文字数了
Function TAX(b As Range)
Dim m, n As Long
m = Len(b)
c = ""
For i = 1 To m Step 1
qushu = Mid(b, i, 1)
n = 65536 + Asc(qushu)
If n > 45217 And n < 65184 Then
c = c & qushu
End If
Next i
TAX = c
End Function
相似回答