Word的字数统计问题word是如何统计字数的
对于需要和大量文字打交道的人，在使用Word的字数统计功能时，如果你的文档中有比较特殊的内容，例如文本框，那么有一个问题一定需要注意，那就是，在2007版之前的Word中，文字统计功能并不统计文本框内文字的字数。
这个问题我一直都没有意识到，主要因为我一直使用最新版本的Word，而没有发现这个问题。最近处理的一本书稿，无论怎样计算，我这里统计的字数和出版社最终统计的字数都有所差别，而且竟然差了好几万字。这就比较奇怪了，后来经过仔细检查才发现，就是文本框的问题。出版社使用的是Word 2003，统计字数并不包含文本框内的文字，而我这个书稿里有大量内容，为了保持版面的美观，都放在了文本框中，这也就导致统计字数有很大偏差。
因此如果因为某些原因必须使用老版本Word，可以考虑使用宏的方式实现，做法可参考这里。
作为存档，这里将宏的内容一起照原样贴出来，感谢原作者的工作成果：
‘统计全部字数的代码使用了网友Lieven Lannoo 提供的解决方案
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 _
& "电子信箱：[email protected]" & vbCr & vbCr _
& "QQ：383290039" & vbCr & vbCr _
& "MSN：[email protected]" & 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的功能实在是太强大了，虽然其中绝大部分功能，大部分人可能根本用不到，而且可能压根不知道这些功能的存在，不过，如果确实需要的时候，还真是挺方便的。
绛旓細1.鍗婅鐘舵佷笅锛屼竴涓瓧姣嶇畻涓涓瓧绗︼紝涓や釜瀛楁瘝绠椾袱涓瓧绗︹︹2.鍗婅鐘舵佷笅锛岃繛缁殑瀛楁瘝鍙畻涓涓瀛楁暟锛堜腑闂存病鏈夌┖鏍硷級/p>/p>鍥涖佸叏瑙掔姸鎬佷笅鐨勫瓧姣 1.鍏ㄨ鐘舵佷笅锛屼竴涓瓧姣嶄粛鐒剁畻涓涓瓧绗︼紝涓や釜瀛楁瘝浠嶇劧绠椾袱涓瓧绗︹︹2.鍏ㄨ鐘舵佷笅锛屼竴涓瓧姣嶇畻涓涓瓧鏁帮紝涓や釜瀛楁瘝绠椾袱涓瓧鏁扳︹/p>/p>浜斻佷竴...
绛旓細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 =...
绛旓細1. 鎵撳紑Word鏂囨。锛屽湪鏂囨。搴曢儴鐨勭姸鎬佹爮涓彲浠ユ壘鍒板瓧鏁扮粺璁′俊鎭2. 鍙﹀锛屼篃鍙互閫氳繃鐐瑰嚮鈥滃闃呪濋夐」鍗′腑鐨勨滃瓧鏁扮粺璁♀濇寜閽潵杩涜瀛楁暟缁熻銆3. 濡傛灉闇瑕佽缁嗙粺璁℃煇浜涚壒瀹氶儴鍒嗙殑瀛楁暟锛屽彲浠ヤ娇鐢╓ord鐨勨滄煡鎵惧拰鏇挎崲鈥濆姛鑳界粨鍚堝瓧鏁扮粺璁″姛鑳芥潵瀹炵幇銆傚湪Word鏂囨。涓紝杞欢宸茬粡鍐呯疆浜嗗瓧鏁扮粺璁″姛鑳姐傝鏌ョ湅瀛楁暟缁熻淇℃伅...
绛旓細1. 鎸変笅蹇嵎閿瓹trl+F锛屾煡鎵惧唴瀹癸細[涓-铷鍕鹃夆滅獊鍑烘樉绀烘墍鏈夊湪璇ヨ寖鍥存壘鍒扮殑椤圭洰鈥濆嬀閫夆滀娇鐢ㄩ氶厤绗︹濓紙濡傛灉娌＄湅鍒拌繖涓」鐩紝璇峰崟鍑烩滈珮绾р濓級鐐瑰嚮鈥滄煡鎵惧叏閮ㄢ濅綘灏卞彲浠ョ湅鍒版暟瀛椾簡銆傝嚦浜庣┖鏍硷紝缁熻淇℃伅涓婂凡缁忕粰浣犲垪鍑轰簡鈥滆绌烘牸鈥濆拰鈥滀笉璁＄┖鏍尖濅袱涓粺璁＄粨鏋溿
绛旓細鍦ㄦ鏂囩紪杈戝尯鍩熶腑锛鎸変笅鈥淐trl鈥濆拰鈥淪hift鈥濋敭涓嶆斁锛涘悓鏃剁偣鍑婚紶鏍囧彸閿紝寮瑰嚭鑿滃崟锛涘湪鑿滃崟涓偣鍑烩滃瓧鏁扮粺璁♀濆嵆鍙煡鐪嬪瓧鏁銆5. 瑙ｅ喅鏂规硶涓夛細鎭㈠榛樿甯冨眬 鏈夋椂鍊欙紝Word鐨勫竷灞鍙兘琚垜浠笉灏忓績鏀逛贡浜嗭紝涔熶細瀵艰嚧瀛楁暟鏍忎笉瑙佷簡锛岃繖鏃舵垜浠彲浠ュ皾璇曟仮澶嶉粯璁ゅ竷灞锛屾柟娉曞涓嬶細鎵撳紑Word锛岀劧鍚庣偣鍑诲乏涓婅鐨勨滄枃浠垛...
绛旓細1. 榧犳爣鍙抽敭鍗曞嚮Word鐘舵佹爮涓婄殑绌虹櫧鍖哄煙锛屾墦寮鈥滆嚜瀹氫箟鐘舵佹爮鈥濆璇濇銆2. 鍦ㄢ滆嚜瀹氫箟鐘舵佹爮鈥濆璇濇涓紝鍕鹃夆滃瓧鏁扳濆閫夋锛屽苟纭繚鈥滃瓧鏁扳濋夐」鍗′腑鐨勨滄樉绀瀛楁暟缁熻鈥濆閫夋涔熻鍕鹃夈3. 鐐瑰嚮鈥滅‘瀹氣濇寜閽嵆鍙傚鏋滅姸鎬佹爮涓凡缁忓惎鐢ㄥ瓧鏁扮粺璁″姛鑳斤紝浣嗕粛鐒朵笉鏄剧ず瀛楁暟锛岃繕鍙兘鏄洜涓烘枃妗ｄ腑鐨勫唴瀹...
绛旓細1銆佸崟鍑烩瀛楁暟缁熻鈥濇寜閽 鎵撳紑闇瑕缁熻瀛楁暟鐨word鏂囨。鏂囦欢锛岄変腑鏂囨。涓殑鎵鏈夊唴瀹癸紝鍒囨崲鑷斥滃闃呪濋夐」鍗★紝鍦ㄢ滄牎瀵光濈粍涓崟鍑烩滃瓧鏁扮粺璁♀濇寜閽紝濡備笅鍥1鎵绀恒傚浘1 2銆佹樉绀哄瓧鏁扮粺璁 姝ゆ椂浼氬脊鍑衡滃瓧鏁扮粺璁♀濆璇濇锛屾樉绀哄嚭缁熻鐨勫叿浣撲俊鎭紝濡傞〉鏁般佸瓧鏁般佽鏁般佹钀芥暟绛夛紝濡備笅鍥2鎵绀恒傚浘2 浠涔堟儏鍐典笅...
绛旓細姝ラ涓锛氭墦寮word锛屽鍒朵竴娈垫枃瀛楄繘鍘伙紝渚嬪杩欐璇 姝ラ浜岋細word涓锛屾壘鍒板闃呰彍鍗曟爮-閫夋嫨瀛楁暟缁熻銆傛楠や笁锛氱偣鍑诲瓧鏁扮粺璁★紝瀛楁暟鐬棿缁熻鍑烘潵锛屽挨鍏舵槸璁′笉璁＄┖鏍笺倃ord浣跨敤缁熻瀛楁暟鐨勬柟娉曚簩锛歸ord2003鐗堜腑锛屽瓧鏁扮粺璁℃槸鍦ㄥ伐鍏-瀛楁暟缁熻涓煡鎵剧殑 鐪嬩簡鈥渨ord浣跨敤缁熻瀛楁暟鐨勪袱绉嶆柟娉曗濇鏂囩殑浜鸿繕鐪嬩簡锛1.濡備綍...
绛旓細鏂规硶涓銆1銆佹墦寮word杞欢锛岀郴缁熻嚜鍔ㄦ柊寤轰竴涓┖鐧word鏂囨。 2銆佹煡鐪嬪乏涓嬭鐨勫瓧鏁鍔熻兘锛岃繖閲屾垜浠細鍙戠幇鏄剧ず涓衡0瀛楁暟鈥3銆佺幇鍦ㄥ鏂囨。杩涜鏂囧瓧缂栬緫锛屽鍒舵垨杈撳叆涓瀹氬瓧鏁板悗锛屽啀鐪嬪彸涓嬭鍙戠幇瀛楁暟鍊煎彉鍖栦簡 4銆侀紶鏍囧乏閿偣鍑诲瓧鏁板尯鍩 5銆佽繕鍙互鏌ョ湅鏂囩珷鐨勫叿浣缁熻鍐呭锛屽睍绀哄寘鎷簡椤垫暟銆佸瓧鏁般佹爣鐐圭鍙枫佽鏁般...
绛旓細棣栧厛锛屽彲鑳芥槸Word鐨榛樿璁剧疆闂銆傛垜浠彲鑳芥棤鎰忎腑鍏抽棴浜嗗瓧鏁版爮鎴栬呯郴缁熸洿鏀瑰奖鍝嶄簡璁剧疆銆傝鎵惧洖瀛楁暟鏍忥紝鍙互杩涘叆鈥滄枃浠垛>鈥滈夐」鈥濓紝鍦ㄢ滄樉绀衡濋夐」鍗′腑鍕鹃夆滅姸鎬佹爮瀛楁暟鏄剧ず鈥濓紝淇濆瓨璁剧疆鍚庨噸鍚疻ord鍗冲彲銆傚彟涓绉嶆柟娉曟槸鍒╃敤蹇嵎閿傚彧闇鍦ㄧ紪杈戝尯鎸変笅鈥淐trl鈥+鈥淪hift鈥濆苟鍙抽敭鐐瑰嚮锛岄夋嫨鈥瀛楁暟缁熻鈥濓紝杩欐牱...
