如何用Word統計文本出現的次數來看看

【如何用Word統計文本出現的次數來看看】 有的時候,我們要在一個文檔中查找某個文本出現的總次數,也就是查找該文本的總數量,例如在一份違紀登記表格中查找一個姓名被記載的總數,類似的應用還有很多 。 但Word沒有這樣的功能,我編寫了一個宏,使Word具有統計單個文本總數量的功能 。 下面介紹實現方法 。

如何用Word統計文本出現的次數來看看

文章插圖

圖1
第一步單擊Word菜單[工具]→[宏]→[宏],輸入宏的名稱“FindText”,然后單擊[創建]按鈕 。

第二步在彈出的VisualBasic編輯器的代碼窗口中完成以下內容:

SubFindText()

Text=InputBox("請輸入要查找的文本:","提示")

WithActiveDocument.Content.Find

DoWhile.Execute(FindText:=Text)=True

tim=tim+1

Loop

EndWith

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

EndSub

第三步錄入完畢后,單擊菜單[文件]→[關閉并返回到Micrcsoft后Word].

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

以后要統計文本數量時,只要單擊[編輯]→[查找文本數量],按提示輸入要查找的內容,單擊[確定]就得到統計結果 。

    推薦閱讀