دیوید معلمی است که به شاگردانش مجموعه ای متشکل از بیست کلمه و عبارت اختصاص می دهد که آنها باید در یک ترکیب استفاده کنند. هر کلمه یا عبارت باید حداقل یک بار استفاده شود. دانش‌آموزان برای هر بار استفاده از یکی از کلمات یا عبارات یک امتیاز دریافت می‌کنند، هرچند برای تکراری‌ها هیچ چیز اضافی وجود ندارد. دیوید به دنبال راهی آسان برای علامت گذاری کار خود است، شاید با یک ماکرو که برای هر کلمه و عبارت جستجو می کند و نوعی سابقه استفاده از آنها ایجاد می کند. آرزوی دیو این است که Word جستجو و شمارش را انجام دهد تا بتواند انرژی خود را روی ارزیابی کیفیت ترکیب متمرکز کند.
اگر می خواهید به صورت دستی بفهمید که یک کلمه یا عبارت خاص چند بار وجود دارد، می توانید از ویژگی Find Word استفاده کنید. اگر از Word 2007 استفاده می کنید این مراحل را دنبال کنید:
- Ctrl+F را فشار دهید. Word تب Find از کادر محاوره ای Find and Replace را نمایش می دهد.
- در کادر Find What کلمه یا عبارتی را که می خواهید پیدا کنید وارد کنید.
- در صورت موجود بودن دکمه More را کلیک کنید.
- اگر به دنبال یک کلمه می‌گردید، بر روی گزینه Find Whole Words Only کلیک کنید.
- روی کادر بررسی Highlight All Items Found کلیک کنید.
- روی Find All کلیک کنید.
Word در کادر محاوره ای به شما نشان می دهد که چند مورد از کلمه یا عبارت شما قرار گرفته است. اگر از Word 2010 یا Word 2013 استفاده می کنید، می توانید تعداد مورد نظر را حتی سریعتر پیدا کنید:
- Ctrl+F را فشار دهید. Word پنجره وظایف ناوبری را در سمت چپ صفحه نمایش می دهد. در پنجره، تب Browse انتخاب شده است.
- اگر به دنبال یک کلمه هستید، روی فلش رو به پایین در سمت راست دکمه ذره بین کوچک کلیک کنید و گزینه ها را انتخاب کنید. در کادر محاوره‌ای گزینه‌ها، فقط کلمه‌های کامل را پیدا کنید.
- در کادر بالای صفحه ناوبری، کلمه یا عبارتی را که می خواهید پیدا کنید وارد کنید و Enter را فشار دهید.
Word به شما نشان می‌دهد، در بالای صفحه وظایف ناوبری، تعداد دفعات کلمه یا عبارت شما را نشان می‌دهد.
این تکنیک‌ها، اگرچه مفید هستند، اما در صورت نیاز به تکرار آن برای بیست کلمه و عبارت در سی و پنج ترکیب مختلف دانش‌آموز، بخشی از جذابیت خود را از دست می‌دهند. در واقع، کلان رویکرد عملی تری است.
اگر تعداد رخدادهای نمایش داده شده در کادر گفتگوی Find and Replace از طریق VBA قابل دسترسی باشد بسیار راحت خواهد بود. تا جایی که من توانستم تعیین کنم، این مقدار قابل دسترسی نیست. این بدان معناست که شما باید به جستجو و شمارش مکرر در خود ماکرو تکیه کنید. یک مثال خوب از نحوه انجام این کار در پایگاه دانش مایکروسافت یافت می شود:
صفحه نشان می دهد که کد مربوط به Word 2000 است، اما با Word 2007 و Word 2010 به خوبی کار می کند. کد موجود در این صفحه را می توان به راحتی تغییر داد تا یک سری کلمات یا عبارات را جستجو کند و همه نتایج را نمایش دهد. فورا. یکی دیگر از رویکردهای نسبتاً منحصربه‌فرد، معکوس کردن مفروضات مربوط به ترکیب‌های دانش‌آموز است: فرض کنید آنها از هر یک از کلمات یا عبارات استفاده می‌کنند (اگر بیست کلمه و عبارت وجود داشته باشد با نمره 20 شروع می‌کنند) و فقط اگر از آنها استفاده نمی‌کنند امتیاز را کم می‌کنند. یکی از آنها
Sub ScoreCard() Dim iScore As Integer Dim iTopScore As Integer Dim WordList As Variant Dim i As Integer Dim sUnused As StringEnter the words or phrases in the array below;each word or phrase in quotation marks andseparated by commas WordList = Array("Mr.", "jelly", "wince", _ "proper", "fix", "compound", "high and dry")Counts the number of words in the array iTopScore = CInt(UBound(WordList)) + 1 iScore = iTopScoreCounts the number of "misses" sUnused = "" For i = 1 To iTopScore With Selection.Find .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchAllWordForms = False .MatchWholeWord = True .Execute FindText:=WordList(i - 1) End With If Selection.Find.Found = False Then iScore = iScore - 1 sUnused = sUnused & vbCrLf & WordList(i - 1) End If Next iDisplays the score If iScore = iTopScore Then sUnused = "All words and phrases were used." Else sUnused = "The following words and phrases" & _ " were not used:" & sUnused End If sUnused = vbCrLf & vbCrLf & sUnused MsgBox Prompt:="The score is " & iScore & _ " of " & iTopScore & sUnused, Title:="Whats the Score?" End Sub
ماکرو امتیازی را برای ترکیب نمایش می دهد و همچنین هر یک از کلمات یا عباراتی را که در ترکیب بندی استفاده نشده است را نمایش می دهد.
