محمود راهی برای چاپ نسخه های شخصی شده از یک سند خواست. او با لیستی از نام‌ها در یک فایل متنی معمولی، یکی در هر خط، شروع کرد و می‌خواست برای هر یک از آن نام‌ها یک کپی از سند فعلی Word چاپ کند. علاوه بر این، او می خواست که نام شخص در سربرگ سند قرار گیرد.
فرآیند انجام چنین کاری نسبتاً ساده است: فایل متنی را باز کنید، نامی را بردارید، آن را در هدر قرار دهید و سپس سند را چاپ کنید. نام دیگری گرفته می شود و این روند تا زمانی که نام دیگری در فایل وجود نداشته باشد تکرار می شود. ماکرو زیر چنین فرآیندی را پیاده سازی می کند:
Sub PutNamesInHeader() Dim sName As String Open "c:/names.txt" For Input As #5 Do While Not EOF(5)get the name Line Input #5, sName ActiveWindow.ActivePane.View.SeekView = _ wdSeekCurrentPageHeader Selection.WholeStory Selection.Delete Selection.TypeText Text:=sName ActiveWindow.ActivePane.View.SeekView = _ wdSeekMainDocument ActiveDocument.PrintOut Loop Close #5 ActiveWindow.ActivePane.View.SeekView = _ wdSeekCurrentPageHeader Selection.WholeStory Selection.Delete ActiveWindow.ActivePane.View.SeekView = _ wdSeekMainDocument End Sub
بخش دشوار ماکرو استفاده از ویژگی .SeekView برای تعیین داستان در سندی است که می خواهید با آن کار کنید. همانطور که در اینجا پیاده سازی شد، ویژگی .SeekView به طور مکرر برای جابجایی بین ناحیه هدر و سند اصلی استفاده می شود. پس از تکمیل حلقه (گرفتن نام ها و چاپ)، ناحیه هدر پاک می شود و SeekView به سند اصلی برمی گردد.
