هنگامی که در یک سند بزرگ کار می کنید، ممکن است بخواهید بدانید که چند بار یک رشته متن خاص در بخشی از سند رخ می دهد. یکی از راه هایی که می توانید این اطلاعات را پیدا کنید، ایجاد یک ماکرو است که محدوده انتخاب شده ای از متن را بررسی می کند تا ببیند چند نمونه شامل آن است. ماکرو زیر را در نظر بگیرید:
Sub CountString() Dim MyDoc As String Dim txt As String Dim 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
متن مورد نظر خود را برای تجزیه و تحلیل انتخاب کنید و سپس ماکرو را اجرا کنید. متن انتخاب شده را به متغیر MyDoc اختصاص می دهد (بنابراین هیچ چیز در سند واقعی تحت تأثیر قرار نمی گیرد) و سپس از شما می خواهد که رشته متنی را که می خواهید پیدا کنید وارد کنید. سپس تابع Replace برای جایگزینی تمام نمونه های آن رشته در متغیر MyDoc استفاده می شود. متن، پس از جایگزینی، به متغیر t اختصاص داده می شود. طول متن "قبل" (MyDoc) و متن "بعد" (t) مقایسه شده و تعداد جایگزین ها محاسبه می شود.
