پل سندی دارد که باید آن را با فهرست کلمات موجود در سند دیگری بررسی کند. اگر سندی که بررسی می‌شود حاوی یکی از کلمات موجود در لیست باشد، کلمه موجود در سند (نه در فهرست کلمات) باید با پررنگ شدن برجسته شود. فهرست کلمات بزرگ است، به ترتیب 20000 کلمه، و پل در حال تعجب است که بهترین راه برای انجام این کار چیست.
دو راه وجود دارد که می توانید ادامه دهید. اولین مورد این است که ماکرو خود را بنویسید که مقایسه ها را برای شما انجام دهد. اگر کلمات مورد نظر خود را در سندی به نام "checklist.doc" در درایو C: قرار دهید، می توانید از ماکرو زیر استفاده کنید:
Sub CompareWordList() Dim sCheckDoc As String Dim docRef As Document Dim docCurrent As Document Dim wrdRef As Object sCheckDoc = "c:checklist.doc" Set docCurrent = Selection.Document Set docRef = Documents.Open(sCheckDoc) docCurrent.Activate With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Replacement.Font.Bold = True .Replacement.Text = "^&" .Forward = True .Format = True .MatchWholeWord = True .MatchCase = True .MatchWildcards = False End With For Each wrdRef In docRef.Words If Asc(Left(wrdRef, 1)) > 32 Then With Selection.Find .Wrap = wdFindContinue .Text = wrdRef .Execute Replace:=wdReplaceAll End With End If Next wrdRef docRef.Close docCurrent.Activate End Sub
تنها کاری که باید انجام دهید این است که سند مورد نظر را باز کنید و سپس ماکرو را اجرا کنید. اگر نام سند حاوی کلمات مورد بررسی متفاوت است یا در مکانی متفاوت است، فقط خطی را که sCheckDoc را تنظیم می کند تغییر دهید تا نام مسیر کامل دیگری برای سند داشته باشد.
اساسا، ماکرو هر کلمه را از لیست کلمات می گیرد و سپس عملیات Find and Replace را با استفاده از آن کلمه در سند انجام می دهد. اگر کلمات بسیار زیادی در لیست کلمات دارید، اجرای ماکرو زمان زیادی می برد—20000 عملیات Find and Replace تعداد کمی هستند!
