请问怎样计算WORD中的中文字数而不包括标点符号？

sdbbsdbb

能有守老大这么有耐心的版主为你作这么个程式，你还。。。。。。

你能否告诉偶你搞这个东东到底为了什么用途么？

你真要简单，那也很方便，我可以提供一个程序，让你将文章中的标点全部提取出来，将后再一个一个的全部手工替换掉，最后再算出不含标点的字符数

你要么？

守柔

以下是引用sky82聊聊在2005-6-9 21:21:00的发言：

难道么简单点的办法啊？

我倒！

润彩绘真

还真是有简单的方法!
查找输入[一-﨩]，替换输入^&，选中通配符，全部替换，显示结果就是。经与老大代码运行结果比较完全一致。只不过老大的代码提供的是超值版。

jasonchen66

在查找中输入[一-﨩]就可以了

banjinjiu

感觉守柔统计字符有出入。

1. Sub CharactersSortCounts()
   
2. '文档字数分类统计代码,主要统计中文字符,中文标点总数,英文字符数,英文标点总数 '以及其它字符数
   
3. Dim ChineseInterPunction As String, EnglishInterPunction As String
   
4. Dim aChar As Range, AscaChar As Long, aVar As Variable
   
5. Dim CIPCount As Integer, ChineseCount As Integer, EIPCount As Integer
   
6. Dim EnglishCount As Integer, BlankCount As Integer, Others As Integer
   
7. Dim MyRange As Range, MyLable As String '如果未选定
   
8. If Selection.Type = wdSelectionIP Then '定义一个全文档RANGE对象
   
9. Set MyRange = ThisDocument.Content
   
10. MyLable = "全文档"
    
11. Else '定义一个选定区域的RANGE对象
    
12. Set MyRange = Selection.Range
    
13. MyLable = "选定文本"
    
14. End If '定义中文标点符,可继续扩充
    
15. ChineseInterPunction = "。，；：？！……-～〔〕《》''"""
    
16. '定义英文标点符,可继续扩充 EnglishInterPunction = ".,;:?!…-~()<>'"""""
    
17. With MyRange
    
18. For Each aChar In .Characters
    
19. AscaChar = VBA.Asc(aChar) '如果含有中文标点则计数
    
20. If VBA.InStr(ChineseInterPunction, aChar) > 0 Then
    
21. CIPCount = CIPCount + 1 '如果含有英文标点计数
    
22. ElseIf VBA.InStr(EnglishInterPunction, aChar) > 0 Then
    
23. EIPCount = EIPCount + 1 '如果为半角空格则计数
    
24. ElseIf AscaChar = 32 Then
    
25. BlankCount = BlankCount + 1 '如果为英文字符(包含CHR(13))则计数
    
26. ElseIf AscaChar >= 0 And AscaChar <= 255 Then EnglishCount = EnglishCount + 1
    
27. '如果为简体中文则计数
    
28. ElseIf AscaChar < -2050 And AscaChar > -20319 Then ChineseCount = ChineseCount + 1
    
29. Else '累计其它
    
30. Others = Others + 1
    
31. End If
    
32. Next '显示统计结果
    
33. MsgBox MyLable & "字数统计:" & vbCrLf & "字符总数: " & _
    
34. .Characters.Count & .Paragraphs.Count & vbCrLf & "段落总数: " & _
    
35. .Paragraphs.Count & vbCrLf & "空格总数: " & BlankCount & vbCrLf & "英文标点总数: " & _
    
36. EIPCount & vbCrLf & "英文字符数(不含空格,英文标点): " & EnglishCount & _
    
37. vbCrLf & "中文标点总数: " & CIPCount & vbCrLf & "中文字符总数(不含中文标点): " & ChineseCount & _
    
38. vbCrLf & "其它字符数: " & Others, vbOKOnly + vbInformation, "Microsoft Word"
    
39. End With
    
40. End Sub

复制代码

特别是字符总数。