Khi bạn đang làm việc trong một tài liệu lớn, bạn có thể muốn biết bao nhiêu lần một chuỗi văn bản cụ thể xảy ra trong một phần của tài liệu.

Một cách bạn có thể tìm thấy thông tin này là tạo một macro sẽ kiểm tra một dải văn bản đã chọn để xem nó chứa bao nhiêu phiên bản.

Hãy xem xét macro sau:

Sub CountString()

Dim MyDoc As String, txt As String, t As String     MyDoc = ActiveDocument.Range.Text     txt = InputBox("Text to find")

t = Replace(MyDoc, txt, "")

MsgBox (Len(MyDoc) - Len(t)) / Len(txt) & " occurrences of " & txt End Sub

Chọn văn bản bạn muốn phân tích và sau đó chạy macro. Nó gán văn bản đã chọn cho biến MyDoc (vì vậy không có gì trong tài liệu thực tế bị ảnh hưởng) và sau đó yêu cầu bạn nhập chuỗi văn bản bạn muốn tìm. Sau đó, hàm Replace được sử dụng để thay thế tất cả các phiên bản của chuỗi đó trong biến MyDoc. Văn bản, sau khi thay thế, được gán cho biến t. Độ dài của văn bản “trước” (MyDoc)

và văn bản “sau” (t) được so sánh và số lượng thay thế được tính toán.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (3788) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Word (Word 2007 và sau này) tại đây: