- 相關推薦
用Word統(tǒng)計文字出現(xiàn)的次數(shù)
有的時候，我們要在一個文檔中查找某個文本出現(xiàn)的總次數(shù)，也就是查找該文本的總數(shù)量，例如在一份違紀登記表格中查找一個姓名被記載的總數(shù)，類似的應用還有很多。但Word沒有這樣的功能，我編寫了一個宏，使Word具有統(tǒng)計單個文本總數(shù)量的功能。下面介紹實現(xiàn)方法。
圖1
第一步 單擊Word菜單[工具]→[宏]→[宏]，輸入宏的名稱“FindText” ，然后單擊[創(chuàng)建]按鈕。
第二步 在彈出的VisualBasic編輯器的代碼窗口中完成以下內(nèi)容：
Sub FindText()
Text = InputBox("請輸入要查找的文本：", "提示")
With ActiveDocument.Content.Find
Do While .Execute(FindText:=Text) = True
tim = tim + 1
Loop
End With
MsgBox ("當前文檔查找到 " + Str(tim) + " 個 " + Text), 48, "完成"
End Sub
第三步 錄入完畢后，單擊菜單[文件]→[關閉并返回到Micrcsoft后Word]。
第四步 單擊菜單[工具]→[自定義]，單擊“命令”選項卡，在“類別”中選擇“宏”，將右邊的“Normal.NewMacros.FindText”命令拖入“編輯”菜單中，并右擊拖入的命令，在“命名”框中重命名為“查找文本數(shù)量”(如圖)。
以后要統(tǒng)計文本數(shù)量時，只要單擊[編輯]→[查找文本數(shù)量]，按提示輸入要查找的內(nèi)容，單擊[確定]就得到統(tǒng)計結(jié)果。
【用Word統(tǒng)計文字出現(xiàn)的次數(shù)】相關文章：
Excel統(tǒng)計信息重復出現(xiàn)次數(shù)11-11
讓Word文字隨表格自動變化11-11
Word：文字怎么變成方框了12-06
幫Word文檔實時動態(tài)統(tǒng)計字數(shù)11-11
利用Word“自動更正”功能快速輸入文字02-18
巧改word下劃線與文字間的距離11-11
不啟動Word查看文檔字數(shù)統(tǒng)計的方法02-18
Word文檔頁碼從第二頁起出現(xiàn)的設置方法11-11
Word中輸入能跟在文字后面顯示的拼音11-11