Word里如何统计标点符号的字数

用总数减去汉字数和空格数
或者,用查找替换的办法,先将文件保存,然后,查找替换其中的任意符号,替换结束时会提示你替换了多少个地方.你退出文件但不要保存,再打开原文件就OK了.

工具-宏-录制新宏

Sub Macro1()

' 宏在 2007-2-27 由 lindak28 录制
Dim sResponse As String '要统计的单词
Dim iCount As Integer '出现次数
Do
sResponse = InputBox(Prompt:="你想要统计什么字符？", Title:="统计字符出现次数", Default:="")
If sResponse > "" Then
iCount = 0
Application.ScreenUpdating = False
With Selection
.HomeKey Unit:=wdStory
With .Find
.ClearFormatting
.Text = sResponse
Do While .Execute
iCount = iCount + 1
Selection.MoveRight
Loop
End With
' 显示出统计结果
MsgBox "字符“" & sResponse & "”" & " 共出现 " & iCount & " 次"
End With
Application.ScreenUpdating = True
End If
Loop While sResponse <> ""
End Sub

结束后运行此宏。

好像不行，在文件菜单下，属性栏，点击统计，可以查看