用Word統(tǒng)計(jì)文字出現(xiàn)的次數(shù)

　　有的時(shí)候，我們要在一個(gè)文檔中查找某個(gè)文本出現(xiàn)的總次數(shù)，也就是查找該文本的總數(shù)量，例如在一份違紀(jì)登記表格中查找一個(gè)姓名被記載的總數(shù)，類(lèi)似的應(yīng)用還有很多。但Word沒(méi)有這樣的功能，我編寫(xiě)了一個(gè)宏，使Word具有統(tǒng)計(jì)單個(gè)文本總數(shù)量的功能。下面介紹實(shí)現(xiàn)方法。

 

圖1

　　第一步 單擊Word菜單[工具]→[宏]→[宏]，輸入宏的名稱(chēng)“FindText” ，然后單擊[創(chuàng)建]按鈕。

 

　　第二步 在彈出的VisualBasic編輯器的代碼窗口中完成以下內(nèi)容：

 

　　Sub FindText()

　　Text = InputBox("請(qǐng)輸入要查找的文本：", "提示")

　　With ActiveDocument.Content.Find

　　Do While .Execute(FindText:=Text) = True

　　tim = tim + 1

　　Loop

　　End With

　　MsgBox ("當(dāng)前文檔查找到 " + Str(tim) + " 個(gè) " + Text), 48, "完成"

 

　　End Sub

　　第三步 錄入完畢后，單擊菜單[文件]→[關(guān)閉并返回到Micrcsoft后Word]。

　　第四步 單擊菜單[工具]→[自定義]，單擊“命令”選項(xiàng)卡，在“類(lèi)別”中選擇“宏”，將右邊的“Normal.NewMacros.FindText”命令拖入“編輯”菜單中，并右擊拖入的命令，在“命名”框中重命名為“查找文本數(shù)量”(如圖)。

 

　　以后要統(tǒng)計(jì)文本數(shù)量時(shí)，只要單擊[編輯]→[查找文本數(shù)量]，按提示輸入要查找的內(nèi)容，單擊[確定]就得到統(tǒng)計(jì)結(jié)果。

【用Word統(tǒng)計(jì)文字出現(xiàn)的次數(shù)】相關(guān)文章：

Excel統(tǒng)計(jì)信息重復(fù)出現(xiàn)次數(shù)11-11

讓W(xué)ord文字隨表格自動(dòng)變化11-11

Word：文字怎么變成方框了12-06

幫Word文檔實(shí)時(shí)動(dòng)態(tài)統(tǒng)計(jì)字?jǐn)?shù)11-11

利用Word“自動(dòng)更正”功能快速輸入文字02-18

巧改word下劃線與文字間的距離11-11

不啟動(dòng)Word查看文檔字?jǐn)?shù)統(tǒng)計(jì)的方法02-18

Word文檔頁(yè)碼從第二頁(yè)起出現(xiàn)的設(shè)置方法11-11

Word中輸入能跟在文字后面顯示的拼音11-11