مواقعی وجود دارد که لری کاملاً نیاز به ایجاد چهار یا چند سند خالی جدید دارد. او نمی‌پرسد آیا راهی برای ایجاد چهار سند خالی جدید (خوب است که تعداد اسناد خالی مورد نیاز را در یک زمان وارد کنید) وجود دارد.
چند راه برای حل این مشکل وجود دارد. اگر تنها کاری که می خواهید انجام دهید این است که چهار سند جدید ایجاد کنید، همه بر اساس الگوی Normal، ساده ترین راه این است که به سادگی Ctrl+N را چهار بار فشار دهید. (در واقع، می توانید کلید Ctrl را نگه دارید و N را چهار بار فشار دهید.) نتیجه چهار سند خالی است که آماده استفاده هستند.
اگر اسناد شما باید بر اساس الگوی متفاوتی نسبت به الگوی عادی باشد، بهتر است از یک ماکرو استفاده کنید. ماکرو زیر به کاربر می‌گوید که چند سند باید ایجاد شود و سپس آنها را بر اساس الگوی BusinessReport ایجاد می‌کند.
Sub NewDocuments() Dim Answer As Variant Dim iNewDocs As Integer Dim J As Integer Answer = InputBox("How many new documents?") iNewDocs = CInt(Answer) For J = 1 to iNewDocs Documents.Add Template:="BusinessReport", NewTemplate:=False, _ DocumentType:=wdNewBlankDocument Next J End Sub
ماکرو را می توان به یک کلید میانبر یا دکمه ای در نوار ابزار اختصاص داد که آماده ایجاد اسناد شماست. همچنین می توانید با همان کد یک رویکرد کمی متفاوت داشته باشید. یک سند جدید بر اساس الگوی مورد نظر (مانند الگوی BusinessReport) ایجاد کنید و سپس این ماکرو را به الگو اضافه کنید:
Sub AutoOpen() Dim Answer As Variant Dim iNewDocs As Integer Dim J As Integer Answer = InputBox("How many more docs?", "Doc Count") iNewDocs = CInt(Answer) For J = 1 To iNewDocs Documents.Add Template:="BusinessReport", NewTemplate:=False, _ DocumentType:=wdNewBlankDocument Next End Sub
سند را با نامی مانند "MultipleDocs.docm" ذخیره کنید. اساس ماکرو مانند قبلی است. تفاوت در نامی است که به ماکرو داده شده است. از آنجایی که از نام AutoOpen ویژه استفاده می کند، پس هر زمان که سند MultipleDocs متعاقباً باز می شود، ماکرو به طور خودکار اجرا می شود و از کاربر پرسیده می شود که چند سند اضافی ایجاد کند.
