word中字数怎么查？如何快速统计？

Word中字数查询与快速统计技巧

在撰写文档时，了解文档的字数对于控制篇幅、满足特定要求或评估写作进度都至关重要。Microsoft Word 提供了多种方法来查询和统计字数。以下是一些详细的方法和技巧，帮助您在Word中快速准确地查字数。

一、Word中字数查询的基本方法

1. 使用状态栏

Word的状态栏位于窗口底部，默认显示页数、节、字数等信息。您可以直接在状态栏上看到当前文档的字数。

2. 使用“字数统计”功能

步骤如下：

（1）打开Word文档。

（2）点击“审阅”选项卡。

（3）在“字数统计”组中，点击“字数统计”按钮。

（4）在弹出的“字数统计”对话框中，您可以查看字数、段落数、页数等信息。

二、如何快速统计Word中的字数

1. 使用快捷键

在Word中，您可以使用快捷键Ctrl+Shift+G快速打开“字数统计”对话框。

2. 使用宏

如果您经常需要统计字数，可以创建一个宏来快速执行此操作。

步骤如下：

（1）打开Word文档。

（2）点击“开发工具”选项卡（如果未显示，请先通过“文件”>“选项”>“自定义功能区”启用）。

（3）点击“宏”组中的“宏”按钮。

（4）在弹出的“宏”对话框中，点击“创建”按钮。

（5）在“名称”框中输入宏名，例如“统计字数”。

（6）在“将宏保存到”下拉菜单中选择“Normal”。

（7）点击“创建”按钮，进入VBA编辑器。

（8）在VBA编辑器中，输入以下代码：

```vba

Sub 统计字数()

Dim wdApp As Word.Application

Set wdApp = Application

wdApp.DisplayAlerts = wdAlertsNone

wdApp.Visible = True

wdApp.Activate

wdApp.Windows("WordNormal").View.Type = wdNormalView

wdApp.Windows("WordNormal").View.ShowWhitespace = False

wdApp.Windows("WordNormal").View.ShowFieldCodes = False

wdApp.Windows("WordNormal").View.ShowFormatting Marks = False

wdApp.Windows("WordNormal").View.ShowAllControls = False

wdApp.Windows("WordNormal").View.ShowRuler = False

wdApp.Windows("WordNormal").View.ShowHyphenation = False

wdApp.Windows("WordNormal").View.ShowBookmarks = False

wdApp.Windows("WordNormal").View.ShowEndnotes = False

wdApp.Windows("WordNormal").View.ShowFootnotes = False

wdApp.Windows("WordNormal").View.ShowComments = False

wdApp.Windows("WordNormal").View.ShowInkAnnotations = False

wdApp.Windows("WordNormal").View.ShowVerticalRuler = False

wdApp.Windows("WordNormal").View.ShowHorizontalRuler = False

wdApp.Windows("WordNormal").View.ShowGuides = False

wdApp.Windows("WordNormal").View.ShowGridlines = False

wdApp.Windows("WordNormal").View.ShowParagraphMarkers = False

wdApp.Windows("WordNormal").View.ShowAllNonPrintingCharacters = False

wdApp.Windows("WordNormal").View.ShowArt = False

wdApp.Windows("WordNormal").View.ShowArtText = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowTextEffects = False

wdApp.Windows("WordNormal").View.ShowText