Tìm số lần xuất hiện của một từ trong đoạn văn bản ?
Porsche
Trả lời 16 năm trước
Để tìm số lần xuất hiện của một từ trong một đoan văn bản , bạn cần tạo Macro với nội dung như sau :
Public Sub CountOccurrences()
Dim iCount As Long
Dim strSearch As String
strSearch = InputBox$("Ban nhap doan van can tim")
iCount = 0
With ActiveDocument.Content.Find
.Text = strSearch
.Format = False
.Wrap = wdFindStop
Do While .Execute
iCount = iCount + 1
Loop
End With
MsgBox Chr$(34) & strSearch & Chr$(34) & "duoc tim thay " & _
iCount & " lan "
End Sub