word统计章节字数

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

具体方法如下：

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

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

 Sub 字数统计()
 '
 ' 字数统计 宏
 '
 '
 Dim myrange As Range
 Dim wordCount As Long
 Dim para As Paragraph
 Set para = Selection.Paragraphs()
 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”由自己决定。查看你的章节用的什么样式。