資源描述：
《word文本框中字數(shù)的統(tǒng)計方法》由會員上傳分享，免費在線閱讀，更多相關內容在行業(yè)資料-天天文庫。
1、WORD無法統(tǒng)計的文本框字數(shù)問題終結者終結者,WORD,字數(shù),文本,統(tǒng)計轉載：真庸關于WORD無法統(tǒng)計文本框內數(shù)字的問題，已經(jīng)有很多人提出各種解決方案。據(jù)真庸研究，其中Westbank的帖子——《解決WORD無法統(tǒng)計文本框內字數(shù)的方法》當中提到的網(wǎng)友LievenLannoo"提供的解決方案最為簡潔，簡潔得不能刪除任何一條代碼。但是，由于代碼少，在輸出信息方面便凸現(xiàn)出不足。真庸在此基礎上，添加了統(tǒng)計文檔主體字數(shù)/字符數(shù)、文檔全部字符數(shù)、文本框（包括各種框架、腳注、尾注）內的字數(shù)/字符數(shù)、文本框（包括各種框架、
2、腳注、尾注）數(shù)量等功能，形成了下面的代碼。補充后的代碼，可以統(tǒng)計我等翻譯最為關心的全部統(tǒng)計數(shù)據(jù)，只要是你在WORD中辛辛苦苦打出來的字都計算在內——為我等翻譯精算每一分錢。使用方法：第一步：在WORD中建立名為“字數(shù)統(tǒng)計”的宏。方法：進入工具——＞宏——＞宏，在“宏名”欄內鍵入“字數(shù)統(tǒng)計”（注意：不要輸入引號“”）作為宏名，單擊“創(chuàng)建”。第二步：在Sub與EndSub之間粘貼以下內容。'統(tǒng)計全部字數(shù)的代碼使用了網(wǎng)友LievenLannoo提供的解決方案DimoStoryAsObject,WordCount,
3、WordCharAsLongDimdhkAsDialog'定義對話框變量DimMainNumWordsAsLong'文檔主體的字數(shù)DimMainNumCharsAsLong'文檔主體的字符數(shù)Application.ScreenUpdating=False'關閉屏幕刷新提高統(tǒng)計速度ForEachoStoryInActivedocument.StoryRanges'遍歷文檔字符WordCount=WordCount+oStory.ComputeStatistics(wdStatisticWords)'文檔全部字數(shù)（含文本框中的）WordChar=Word
4、Char+oStory.ComputeStatistics(wdStatisticCharacters)'文檔全部字符數(shù)（含文本框中的）DoWhileNot(oStory.NextStoryRangeIsNothing)'同一組合內的下一個對象不空則繼續(xù)統(tǒng)計SetoStory=oStory.NextStoryRangeWordCount=WordCount+oStory.ComputeStatistics(wdStatisticWords)'累加上同一組合內字數(shù)WordChar=WordChar+oStory.ComputeStatistics(wd
5、StatisticCharacters)'累加上同一組合內字符數(shù)LoopNextoStorySelection.HomeKeyUnit:=wdStory'將所選內容移至文檔開頭Setdhk=Dialogs(wdDialogToolsWordCount)'將dhk設置為"字數(shù)統(tǒng)計"對話框dhk.Updatedhk.ExecuteMainNumWords=dhk.Words'獲得文檔主體的字數(shù)MainNumChars=dhk.Characters'獲得文檔主體的字符數(shù)Application.ScreenUpdating=True'統(tǒng)計完畢恢復屏幕刷新'顯
6、示統(tǒng)計結果MsgBox"使用當中遇到任何問題，請隨時與我聯(lián)系。"&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_&"****包括文檔主體/各種框架內的字數(shù)/字符數(shù)統(tǒng)計信息****"&vbCr&vbCr_&"
7、整個文檔字數(shù)總計："&WordCount&vbCr_&"整個文檔字符數(shù)總計："&WordChar&vbCr&vbCr_&"其中1、有關文本框的統(tǒng)計信息"&vbCr_&"文本框數(shù)量："&Str(Activedocument.Shapes.Count)&vbCr_&"文本框字數(shù)合計："&WordCount-MainNumWords&vbCr_&"文本框字符數(shù)合計："&WordChar-MainNumChars&vbCr&vbCr_&"2、有關文檔主體的統(tǒng)計信息"&vbCr_&"（即WORD自帶的“字數(shù)統(tǒng)計”功能統(tǒng)計的結果）"&vbCr_&"文檔主體字數(shù)合
8、計："&MainNumWords&vbCr_&"文檔主體字符數(shù)合計（不計空格）："&MainNumChars
