本文作者:office教程网

Word的字数统计问题 word 是如何统计字数的

office教程网 2024-02-14 12:31:00
后台-系统设置-扩展变量-手机广告位-内容正文顶部
摘要:

对于需要和大量文字打交道的人,在使用Word的字数统计功能时,如果你的文档中有比较特殊的内容,例如文本框,那么有一个问题一定需要注意,那就是,在2007版之前的Word中,文字统计功能并不统计文本框内文字的字数。

 

这个问题我一直都没有意识到,主要因为我一直使用最新版本的Word,而没有发现这个问题。最近处理的一本书稿,无论怎样计算,我这里统计的字数和出版社最终统计的字数都有所差别,而且竟然差了好几万字。这就比较奇怪了,后来经过仔细检查才发现,就是文本框的问题。出版社使用的是Word 2003,统计字数并不包含文本框内的文字,而我这个书稿里有大量内容,为了保持版面的美观,都放在了文本框中,这也就导致统计字数有很大偏差。

Word 中行号选项的两种设置方法图解教程

为了更好地查看文档,会对文档内容添加行号,那你对于行号了解多少呢?Word文档中行号选项的两种设置方法:1、每5行编号一次选中文档,点击行号行号选项行号,打开相应的界面,然后在

因此如果因为某些原因必须使用老版本Word,可以考虑使用宏的方式实现,做法可参考这里。

作为存档,这里将宏的内容一起照原样贴出来,感谢原作者的工作成果:

‘统计全部字数的代码使用了网友Lieven Lannoo <lieven.lannoo@nci.be>提供的解决方案
Dim oStory As Object, WordCount, WordChar As Long
Dim 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.NextStoryRange
WordCount = WordCount oStory.ComputeStatistics(wdStatisticWords) ‘累加上同一组合内字数
WordChar = WordChar oStory.ComputeStatistics(wdStatisticCharacters) ‘累加上同一组合内字符数
Loop
Next oStory
Selection.HomeKey Unit:=wdStory ‘将所选内容移至文档开头
Set dhk = Dialogs(wdDialogToolsWordCount) ‘将dhk设置为"字数统计"对话框
dhk.Update
dhk.Execute
MainNumWords = dhk.Words ‘获得文档主体的字数
MainNumChars = dhk.Characters ‘获得文档主体的字符数
Application.ScreenUpdating = True ‘统计完毕恢复屏幕刷新
‘显示统计结果
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 _
& "整个文档字数总计  :" & 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

不得不再次感叹,MS Office的功能实在是太强大了,虽然其中绝大部分功能,大部分人可能根本用不到,而且可能压根不知道这些功能的存在,不过,如果确实需要的时候,还真是挺方便的。

word邮件合并实例教程 word引用excel数据

在Word中可以利用邮件合并功能,来实现和Excel中进行数据的共享交换。首先我们在Word中制作如下表格,保存文件名为:学生成绩通知单表格。Word表格的第一行中的内容是固定不变的,而每位

后台-系统设置-扩展变量-手机广告位-内容正文底部
未经允许不得转载:

作者:office教程网,原文地址:Word的字数统计问题 word 是如何统计字数的发布于2024-02-14 12:31:00
转载或复制请以超链接形式并注明出处 演示站

分享到:

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏

留言与评论(共有 0 条评论)
   
验证码: