word统计章节字数

只有我这么无聊了。。写论文的时候发现每次想看这个章节的字数统计时，还需要全选然后再看字数统计，太麻烦了。所以想着用宏写个能直接查看选定章节的字数统计。

 

具体方法如下：

建立宏：视图--宏--录制宏--宏名--按钮（方便以后点击查看字数）最好将宏保存在所有文档，这样另外打开一个word也可以使用。

随便录制一下，然后结束录制。再编辑刚才的宏即可。

Sub 字数统计()
'
' 字数统计 宏
'
'
Dim myrange As Range
Dim wordCount As Long
Dim para As Paragraph
Set para = Selection.Paragraphs(1)
wordCount = para.Range.ComputeStatistics(wdStatisticWords)
On Error Resume Next
Do
    If para.Next.Range.Style = "标题 1" Then
        Exit Do
    End If
    wordCount = wordCount + para.Next.Range.ComputeStatistics(wdStatisticWords)
    Set para = para.Next
Loop While True

MsgBox wordCount
 
End Sub

此处的“标题 1”由自己决定。查看你的章节用的什么样式。