Word文本框中字数的统计方法.docx

WORD无法统计的文本框字数问题终结者终结者, WORD, 字数, 文本, 统计转载：真庸关于WORD无法统计文本框内数字的问题，已经有很多人提出各种解决方案。据真庸研究，其中Westbank的帖子解决WORD无法统计文本框内字数的方法当中提到的网友Lieven Lannoo 提供的解决方案最为简洁，简洁得不能删除任何一条代码。但是，由于代码少，在输出信息方面便凸现出不足。真庸在此基础上，添加了统计文档主体字数/字符数、文档全部字符数、文本框（包括各种框架、脚注、尾注）内的字数/字符数、文本框（包括各种框架、脚注、尾注）数量等功能，形成了下面的代码。补充后的代码，可以统计我等翻译最为关心的全部统计数据，只要是你在WORD中辛辛苦苦打出来的字都计算在内为我等翻译精算每一分钱。使用方法：第一步：在WORD中建立名为“字数统计”的宏。方法：进入工具宏宏，在“宏名”栏内键入“字数统计”（注意：不要输入引号“”）作为宏名，单击“创建”。第二步：在 Sub 与 End Sub之间粘贴以下内容。统计全部字数的代码使用了网友Lieven Lannoo 提供的解决方案Dim oStory As Object, WordCount, WordChar As LongDim dhk As Dialog 定义对话框变量Dim MainNumWords As Long 文档主体的字数Dim MainNumChars As Long 文档主体的字符数Application.ScreenUpdating = False 关闭屏幕刷新提高统计速度For Each oStory In Activedocument.StoryRanges 遍历文档字符WordCount = WordCount + oStory.ComputeStatistics(wdStatisticWords) 文档全部字数（含文本框中的）WordChar = WordChar + oStory.ComputeStatistics(wdStatisticCharacters) 文档全部字符数（含文本框中的）Do While Not (oStory.NextStoryRange Is Nothing) 同一组合内的下一个对象不空则继续统计Set oStory = oStory.NextStoryRangeWordCount = WordCount + oStory.ComputeStatistics(wdStatisticWords) 累加上同一组合内字数WordChar = WordChar + oStory.ComputeStatistics(wdStatisticCharacters) 累加上同一组合内字符数LoopNext oStorySelection.HomeKey Unit:=wdStory 将所选内容移至文档开头Set dhk = Dialogs(wdDialogToolsWordCount) 将dhk设置为字数统计对话框dhk.Updatedhk.ExecuteMainNumWords = dhk.Words 获得文档主体的字数MainNumChars = dhk.Characters 获得文档主体的字符数Application.ScreenUpdating = True 统计完毕恢复屏幕刷新显示统计结果MsgBox 使用当中遇到任何问题，请随时与我联系。 & vbCr & vbCr _& 电气工程师兼日语翻译真庸 & vbCr & vbCr _& 电子信箱： & vbCr & vbCr _& QQ：383290039 & vbCr & vbCr _& MSN： & vbCr & vbCr _& 电话或者& vbCr & vbCr _& & vbCr & vbCr _& *包括文档主体/各种框架内的字数/字符数统计信息* & vbCr & vbCr _& 整个文档字数总计 ： & WordCount & vbCr _& 整个文档字符数总计： & WordChar & vbCr & vbCr _& 其中1、有关文本框的统计信息 & vbCr _& 文本框数量 ： & Str(Activedocument.Shapes.Count) & vbCr _& 文本框字数合计 ： & WordCount - MainNumWords & vbCr _& 文本框字符数合计 ： & WordChar - MainNumChars & vbCr & vbCr _& 2、有关文档主体的统计信息 & vbCr _& （即WORD自带的“字数统计”功能统计的结果） & vbCr _& 文档主体字数合计 ： & MainNumWords & vbCr _& 文档主体字符数合计（不计空格）： & MainNumChars第三步：关闭VBA窗口，回到WORD界面。第四步：创建“字数统计”按钮。方法：进入工具自定义命令宏，找到宏列表中刚才创建的“字数统计”宏，将之拖到Word 工具栏。