word文本框中字数的统计方法

《word文本框中字数的统计方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、WORD无法统计的文本框字数问题终结者终结者,WORD,字数,文本,统计转载：真庸关于WORD无法统计文本框内数字的问题，已经有很多人提出各种解决方案。据真庸研究，其中Westbank的帖子——《解决WORD无法统计文本框内字数的方法》当中提到的网友LievenLannoo"提供的解决方案最为简洁，简洁得不能删除任何一条代码。但是，由于代码少，在输出信息方面便凸现出不足。真庸在此基础上，添加了统计文档主体字数/字符数、文档全部字符数、文本框（包括各种框架、脚注、尾注）内的字数/字符数、文本框（包括各种框架、

2、脚注、尾注）数量等功能，形成了下面的代码。补充后的代码，可以统计我等翻译最为关心的全部统计数据，只要是你在WORD中辛辛苦苦打出来的字都计算在内——为我等翻译精算每一分钱。使用方法：第一步：在WORD中建立名为“字数统计”的宏。方法：进入工具——＞宏——＞宏，在“宏名”栏内键入“字数统计”（注意：不要输入引号“”）作为宏名，单击“创建”。第二步：在Sub与EndSub之间粘贴以下内容。'统计全部字数的代码使用了网友LievenLannoo提供的解决方案DimoStoryAsObject,WordCount,

3、WordCharAsLongDimdhkAsDialog'定义对话框变量DimMainNumWordsAsLong'文档主体的字数DimMainNumCharsAsLong'文档主体的字符数Application.ScreenUpdating=False'关闭屏幕刷新提高统计速度ForEachoStoryInActivedocument.StoryRanges'遍历文档字符WordCount=WordCount+oStory.ComputeStatistics(wdStatisticWords)'文档全部字数（含文本框中的）WordChar=Word

4、Char+oStory.ComputeStatistics(wdStatisticCharacters)'文档全部字符数（含文本框中的）DoWhileNot(oStory.NextStoryRangeIsNothing)'同一组合内的下一个对象不空则继续统计SetoStory=oStory.NextStoryRangeWordCount=WordCount+oStory.ComputeStatistics(wdStatisticWords)'累加上同一组合内字数WordChar=WordChar+oStory.ComputeStatistics(wd

5、StatisticCharacters)'累加上同一组合内字符数LoopNextoStorySelection.HomeKeyUnit:=wdStory'将所选内容移至文档开头Setdhk=Dialogs(wdDialogToolsWordCount)'将dhk设置为"字数统计"对话框dhk.Updatedhk.ExecuteMainNumWords=dhk.Words'获得文档主体的字数MainNumChars=dhk.Characters'获得文档主体的字符数Application.ScreenUpdating=True'统计完毕恢复屏幕刷新'显

6、示统计结果MsgBox"使用当中遇到任何问题，请随时与我联系。"&vbCr&vbCr_&"电气工程师兼日语翻译——真庸"&vbCr&vbCr_&"电子信箱：ruiteng2005@126.com"&vbCr&vbCr_&"QQ：383290039"&vbCr&vbCr_&"MSN：ruiteng2005@hotmail.com"&vbCr&vbCr_&"电话：13312029710或者13389935832"&vbCr&vbCr_&""&vbCr&vbCr_&"****包括文档主体/各种框架内的字数/字符数统计信息****"&vbCr&vbCr_&"

7、整个文档字数总计："&WordCount&vbCr_&"整个文档字符数总计："&WordChar&vbCr&vbCr_&"其中1、有关文本框的统计信息"&vbCr_&"文本框数量："&Str(Activedocument.Shapes.Count)&vbCr_&"文本框字数合计："&WordCount-MainNumWords&vbCr_&"文本框字符数合计："&WordChar-MainNumChars&vbCr&vbCr_&"2、有关文档主体的统计信息"&vbCr_&"（即WORD自带的“字数统计”功能统计的结果）"&vbCr_&"文档主体字数合

8、计："&MainNumWords&vbCr_&"文档主体字符数合计（不计空格）："&MainNumChars