1. 程式人生 > >【辦公-WORD】VBA 統計相同字元(文字)出現的個數

【辦公-WORD】VBA 統計相同字元(文字)出現的個數

1、啟動VBA

使用快捷鍵“Alt+F11”啟動VBA

2、輸入VBA程式碼

Sub 查詢相同字元個數()
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

3、執行程式碼

使用快捷鍵“F5”執行程式碼,出現如下所示的對話方塊,輸入你想統計的字元或字串。