有的時候，我們要在一個文檔中查找某個文本出現的總次數，也就是查找該文本的總數量，例如在一份違紀登記表格中查找一個姓名被記載的總數，類似的應用還有很多。但Word沒有這樣的功能，我編寫了一個宏，使Word具有統計單個文本總數量的功能。下面介紹實現方法。 cs.xzking.com/xu/20150508/office/05111511103741916.jpg">圖1　　第一步 單擊Word菜單[工具]→[宏]→[宏]，輸入宏的名稱“FindText” ，然后單擊[創建]按鈕。 　　 　　第二步 在彈出的VisualBasic編輯器的代碼窗口中完成以下內容： 　　 　　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”命令拖入“編輯”菜單中，并右擊拖入的命令，在“命名”框中重命名為“查找文本數量”（如圖）。 　　 　　以后要統計文本數量時，只要單擊[編輯]→[查找文本數量]，按提示輸入要查找的內容，單擊[確定]就得到統計結果。