اگر نیاز به ایجاد شماره سریال در اسناد خود دارید و ماهیت آنها بسیار ساده است، می توانید این کار را با استفاده از ماکرو انجام دهید. این رویکرد به شماره سریال عالی است اگر شماره سریال شما متوالی (1، 2، 3، و غیره) یا منظم باشد (3، 5، 7، و غیره).
برای شروع، باید ماکرویی ایجاد کنید که تغییر شماره سریال و چاپ سند شما را کنترل می کند. می توانید از ماکرو زیر استفاده کنید:
Sub MySerial() Dim docCurrent As Document Dim rSerial As Range Dim iSerialNum As Integer Dim sTemp As String Dim iCopies As Integer Dim iCount As Integer Set docCurrent = Application.ActiveDocument Set rSerial = docCurrent.Bookmarks("Serial").RangeGet the starting number. Note that the serial numberneeds to consist only of digits (no leading letters orsymbols) in order for the Val function to work properly. iSerialNum = Val(rSerial.Text)Get the number of copies required sTemp = InputBox("How many copies?", "Print Serialized", "1") iCopies = Val(sTemp) For iCount = 1 To iCopiesPrint the document docCurrent.PrintOut Range:=wdPrintAllDocumentIncrement the serial number iSerialNum = iSerialNum + 1Convert to formatted number (with leading zeroes)and put back into the document. sTemp = Format(iSerialNum, "00000") rSerial.Text = sTemp Next iCountReset the bookmark, since the updating procedurewipes out the old one. docCurrent.Bookmarks.Add Name:="Serial", Range:=rSerial End Sub
تنها یک پیش نیاز برای استفاده از ماکرو وجود دارد: باید مطمئن شوید که سند شما حاوی نشانکی به نام سریال است. این نشانک باید به شماره سریال سند شما اشاره کند، زیرا می‌خواهید در اولین سند چاپ شده ظاهر شود. ماکرو فرض می کند که شماره سریال چیزی شبیه "00010" یا "00123" با صفرهای ابتدایی خواهد بود. بنابراین، نشانک شما (سریال) باید به پنج رقمی که شماره سریال شما را تشکیل می‌دهند اشاره کند.
اگر می خواهید شماره سریال شما متفاوت باشد، باید ماکرو را تغییر دهید. فراموش نکنید که ماکرو فرض می‌کند که شماره سریال می‌تواند مستقیماً به مقدار قابل افزایش تبدیل شود. بنابراین، اگر شماره سریال نشانک شده شما با یک حرف (مانند "کپی 001") شروع شود، این شماره هرگز به درستی افزایش نمی یابد. در عوض، فقط بخش عددی را نشانه گذاری کنید.
هنگامی که در حال اجرای ماکرو هستید، می توانید سند را ذخیره کنید و شماره سریال برای دفعه بعدی که می خواهید از آن استفاده کنید آماده خواهد بود.
