如何在Word中統計特定文字出現的次數

Step 1 : 在【工具】中選擇【巨集】-->【Visual Basic編輯器】，如下圖:




Step 2. 在跳出的視窗中打入下面這一段VB code:

========================================================
Sub FindText()
Text = InputBox("Pls enter the word you wanna calculate", "Calculate")
With ActiveDocument.Content.Find
Do While .Execute(FindText:=Text) = True
total = total + 1
Loop
End With
MsgBox ("There are totally " + Str(total) + " " + Text + " in this document."), 48, "Finish"
End Sub
========================================================

如圖:



Step 3. 貼完後點一下上方的播放鍵，會跳出下面這個視窗，輸入你需要的單字後，按下確定



Step 4. 然後就完成啦~ 範例是牛仔很忙的歌詞，裡面一共用14個麻煩，真是麻煩的一首歌 ;)