在使用 Microsoft Word 编辑文档时,系统自带的“字数统计”功能会包含所有字符(包括标点符号)。但有时我们只需要统计实际的文字数量(如汉字、英文字母等),而不希望标点符号被计入。本文将为你提供几种实用的方法。
Ctrl + H 打开“查找和替换”对话框。[,。!?;:“”‘’()【】《》、](可分批处理)。Ctrl + Z)以恢复原文档。如果你熟悉 Word 的宏功能,可以运行以下 VBA 脚本:
Sub CountWordsWithoutPunctuation()
Dim docText As String
Dim cleanText As String
Dim regEx As Object
docText = ActiveDocument.Range.Text
Set regEx = CreateObject("VBScript.RegExp")
regEx.Global = True
regEx.Pattern = "[^\u4e00-\u9fa5a-zA-Z0-9\s]"
cleanText = regEx.Replace(docText, "")
MsgBox "不含标点的字数为:" & Len(Replace(cleanText, " ", ""))
End Sub
该脚本会自动剔除所有非汉字、非字母、非数字的字符,并弹出统计结果。