یکی از متداولترین کارهایی که باید هنگام ایجاد یک ماکرو انجام دهید، تکرار یک بلوک از اقدامات برای هر اتفاقی در یک فایل است. این ممکن است عجیب به نظر برسد، اما کسانی که برنامهنویسی میکنند شرایط را به خوبی میدانند—شما باید در یک فایل جستجو کنید و سپس اقداماتی را انجام دهید، جستجو را تکرار کنید و عمل را تکرار کنید، و غیره تا پایان فایل. رویکرد کلی به شرح زیر است:
Selection.HomeKey Unit:=wdStory
[set up for your search]
Selection.Find.Execute
While Selection.Find.Found
[take some action]
Selection.Find.Execute
Wend
خط اول در این مثال به ابتدای سند منتقل می شود. سپس از دستورات لازم برای تنظیم جستجوی خود استفاده می کنید. وقتی با خط Selection.Find.Execute مواجه شد، Word جستجوی واقعی را انجام می دهد. سپس Selection.Find.Found برای کنترل حلقه Wend استفاده می شود. این ویژگی (Selection.Find.Found) هر بار که یک جستجوی اجرا شده واقعاً منجر به یافتن چیزی می شود، روی True تنظیم می شود. بنابراین، کل حلقه while ... Wend بارها و بارها تکرار میشود، تا زمانی که هر چیزی که در جستجوی آن هستید همچنان یافت میشود. به عنوان آخرین مرحله در حلقه، دستور Selection.Find.Execute برای انجام دوباره جستجو استفاده می شود.
