قابلیت‌های استاندارد ادغام ایمیل Word به شما امکان می‌دهد مستقیماً با یک چاپگر، یک سند جدید یا یک سری از پیام‌های ایمیل ادغام شوید.
با این حال، ممکن است مواقعی وجود داشته باشد که شما نیاز به ایجاد یک سند جداگانه برای هر یک از رکوردهای منبع داده داشته باشید. متأسفانه Word راهی برای این کار ارائه نمی دهد. خوشبختانه، شما می توانید یک ماکرو برای مراقبت از کار برای شما ایجاد کنید. در زیر یک ماکرو است که سند ایجاد شده توسط ویژگی ادغام نامه را "از هم جدا" می کند. هر بخش از سند (یک بخش در هر رکورد منبع داده وجود دارد) بیرون کشیده شده و در فایل سند خود ذخیره می شود.
Sub Splitter() Dim numlets As Integer Dim Counter As Integer Dim BaseName As String Dim DocName As String Selection.EndKey Unit:=wdStory numlets = Selection.Information(wdActiveEndSectionNumber) If numlets > 1 Then numlets = numlets - 1 Selection.HomeKey Unit:=wdStory BaseName = "c:Let" For Counter = 1 To numlets DocName = BaseName & Right("000" & LTrim(Str(Counter)), 3) ActiveDocument.Sections.First.Range.Cut Documents.Add Selection.Paste Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 ActiveDocument.SaveAs FileName:=DocName ActiveWindow.Close Next Counter End Sub
هنگامی که ماکرو اجرا می شود، یک سری فایل به نام Ltr001 از طریق Ltrxxx ایجاد می کند که xxx تعداد بخش های سند اصلی است. در واقع، ماکرو یک فایل "Ltr" کمتر از تعداد بخش های سند ایجاد می کند. آخرین بخش سند در فایل اصلی باقی میماند (بخشی که در حال پردازش آن هستید). اگر می‌خواهید نام فایل یا محل ذخیره فایل‌ها را تغییر دهید، تنظیمات متغیر BaseName را در ماکرو تغییر دهید.
