Marc đang tìm cách nhanh nhất, hiệu quả nhất — trong macro — để xác định số lần một chuỗi văn bản cụ thể xảy ra trong tài liệu. Thật không may là không có cách nào để làm điều này với một hoặc hai lệnh đơn giản; thay vào đó, bạn cần “lướt qua” một tài liệu bằng tính năng Tìm và Thay thế của Word.

Trước tiên, hãy tạo một bản sao tạm thời của tài liệu của bạn để bạn không có nguy cơ làm xáo trộn tài liệu gốc của mình. Sau đó, sử dụng một biến trong macro của bạn để đếm số lần văn bản mong muốn được thay thế và tăng biến mỗi khi thay thế xảy ra. Trong ví dụ sau, số lần sẽ kết thúc trong biến Replacements.

Sau đó, bạn có thể sử dụng giá trị hoặc chuyển đổi giá trị thành một chuỗi để hiển thị nó.

Sub CountReplacements     Dim Replacements As Integer

Replacements = 0     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = InputBox("Enter the text you want to find:")

.Replacement.Text = InputBox("Enter the replacement text:")

.Forward = True         .Wrap = wdFindContinue         .Format = False         .Execute Replace:=wdReplaceOne

Do Until Not .Found             .Execute Replace:=wdReplaceOne             Replacements = Replacements + 1             Selection.MoveRight Unit:=wdCharacter, Count:=1         Loop

If Replacements <> 0 Then             MsgBox _               "" & .Text & " has been replaced " & _               CStr(Replacements) & " times with " & _               .Replacement.Text         Else             MsgBox .Text & " was not found in the document/selection."

End If     End With End Sub

_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 (3368) á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: