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”由自己决定。查看你的章节用的什么样式。