Word به شما امکان می دهد شماره خطوط را به یک سند اضافه کنید. این دقیقاً به معنای چیزی است که می گوید - هر خط در سند از ابتدا تا انتها شماره گذاری می شود. این می تواند هنگام ایجاد اسناد خاص، مانند اسناد قانونی، یا هنگام چاپ نسخه چاپی برای ارجاع بعدی به صورت خط به خط، بسیار مفید باشد.
وقتی سندی را با شماره خطوط پیوسته روشن چاپ می کنید، Word هر خط را از ابتدا تا انتها شماره گذاری می کند. با این حال، اگر فقط یک انتخاب را چاپ می کنید (انتخابی را انتخاب کنید، کادر محاوره ای Print را نمایش دهید و مطمئن شوید که Selection به عنوان چیزی که چاپ می کنید مشخص شده است)، در این صورت Word شماره خطوط را به درستی چاپ نمی کند. Word خطوط موجود در انتخاب را به گونه ای شماره گذاری می کند که گویی کل سند است - از یک شروع می شود و تا انتخاب ادامه می یابد. می توان فکر کرد که روش بهتری برای Word این است که اعداد خطوط را مطابق آنچه انتخاب واقعاً در سند نشان می دهد چاپ کند. به عنوان مثال، اگر خطوط 57 تا 72 را به عنوان انتخاب خود انتخاب کرده اید و سپس آن را چاپ کرده اید، Word باید اعداد 57 تا 72 را در سمت چپ چاپ چاپ کند، نه از 1 تا 15.
متاسفانه راه آسانی برای حل این مشکل وجود ندارد. یک راه حل این است که انتخاب ها را چاپ نکنید. (این پیشنهاد ممکن است تندتر از آنچه منظور است به نظر برسد.) در عوض، صفحات را چاپ کنید. در کادر محاوره‌ای چاپ، به جای انتخاب، محدوده صفحه را برای چاپ مشخص کنید. Word شماره گذاری خطوط را به درستی نگه می دارد، گویی از ابتدای سند شماره گذاری می کنید.
گزینه دیگر این است که برای انجام "کار کثیف" برای شما به یک ماکرو تکیه کنید. می توانید از یک ماکرو برای تنظیم مجدد شماره خط ابتدایی استفاده شده برای انتخاب خود استفاده کنید. زیر یک ماکرو ساده است که از شما یک شماره خط ابتدایی می خواهد و سپس انتخاب شما را با استفاده از آن شماره خط به عنوان اولین شماره چاپ شده در سمت چپ چاپ می کند. (توجه داشته باشید که این ماکرو با شماره خطی که شما مشخص کرده اید شروع به چاپ نمی کند، بلکه از عددی که شما تعیین کرده اید به عنوان شماره خط شروع انتخاب شما استفاده می کند.)
Sub LineNumbersPrint() Dim LineNumberStart As Integer On Error GoTo GetOut LineNumberStart = InputBox("First line number for printout?", _ "Line Numbers Printout") With ActiveDocument.PageSetup With .LineNumbering .Active = True .StartingNumber = LineNumberStart End With End With ActiveDocument.PrintOut , Range:=wdPrintSelection With ActiveDocument.PageSetup With .LineNumbering .Active = True .StartingNumber = 1 End With End With GetOut: End Sub
استفاده از این ماکرو فرض را بر این می گذارد که قبل از اینکه واقعاً چاپ کنید، شماره خط شروع انتخاب خود را جستجو کنید. این کار را می توان با استفاده از قابلیت چاپ پیش نمایش Word انجام داد، اما پس از مدتی خسته کننده می شود. اگر کمی چاپ انتخابی انجام می دهید، ماکرو زیر بیشتر مورد توجه شما خواهد بود. این پیچیده تر است، اما به طور خودکار شماره خط مناسب را برای استفاده در شروع انتخاب تعیین می کند و سپس انتخاب را چاپ می کند.
Sub Correct_Line_Numbers() Dim myRng As Range Dim StartRng As Range Dim iCount As Integer if you include the paragraph mark in your selection, then Word prints the subsequent line number; not the entire line, just the line number; therefore, if the last character of the current selection is a paragraph mark, then move the end position of the selection to the left by one character If Selection.Characters.Last = Chr(13) Then Selection.MoveEnd Count:=-1 End If set the current selection to a variable Set myRng = Selection.Range set the start of the document to a variable Set StartRng = ActiveDocument.Paragraphs(1).Range With Selection go to the beginning of the line for the current selection and set the iCount variable so that it counts the current line .HomeKey unit:=wdLine iCount = 1 if the cursor is not at the beginning of the document then move the cursor up by one line increment iCount by one each time the cursor is not at the beginning of the document While Not Selection.InRange(StartRng) .MoveUp unit:=wdLine iCount = iCount + 1 if the cursor is in a table, then the macro should reduce iCount; Word counts an entire table as one line If Selection.Rows.Count > 0 Then iCount = iCount - 1 End If Wend End With reset the starting line number so that it equals the number of times the cursor was moved up by a line ActiveDocument.PageSetup.LineNumbering.StartingNumber = iCount reselect the original selection myRng.Select print out only the original selection ActiveDocument.PrintOut Range:=wdPrintSelection reset the line number(by "undoing" the last two actions [fields update and change line number]) so that line numbering begins at one ActiveDocument.Undo ActiveDocument.Undo reselect the original selection myRng.Select End Sub
یک اخطار در مورد این کلان وجود دارد. اگر متنی را در سند خود پنهان کرده‌اید و آن متن پنهان نمایش داده می‌شود اما برای چاپ تنظیم نشده است، این ماکرو همچنان آن خطوط متن را به‌گونه‌ای شمارش می‌کند که گویی چاپ می‌شوند. به عبارت دیگر، ماکرو فرض می‌کند که متن پنهان را در صورتی که روی صفحه نمایش داده شود، چاپ می‌کنید.
