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