Home »

Tìm số lần xuất hiện của một từ trong đoạn văn bản

Thứ Ba, 3 tháng 4, 2012
Trong MS Word không hỗ trợ tính năng tìm kiếm số lần xuất hienẹ một từ trong đoạn văn bản vì thế mà bạn cần phải sử dụng Macro

1. Mở MS Word và văn bản mà bạn muốn tìm
2. Bấm tổ hợp ALT-F11 để mở cửa sổ MS Visual Basic
3. Bấm menu Insert , chọn Module
4. Bán dán nội dung bên dưới

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
 
 5. Quay trở lại MS Word .
6. Nếu bạn dùng Word 2007 thì chọn Developer > chọn Macro và chạy macro có tên CountOccurrences
7. Nếu bạn dùng Word 2003 thì chọn Tools > Macro > Macro
Tags:

Comments[ 0 ]


Đăng nhận xét