선택 항목을 인쇄 할 때 올바른 줄 번호 (Microsoft Word)
Word에서는 문서에 줄 번호를 추가 할 수 있습니다. 즉, 문서의 각 줄은 처음부터 끝까지 번호가 매겨져 있습니다. 이는 법률 문서와 같은 특수 문서를 만들거나 후속 참조를 위해 줄 단위로 하드 카피를 인쇄 할 때 매우 유용 할 수 있습니다.
연속 줄 번호가 설정된 문서를 인쇄하면 Word에서 처음부터 끝까지 모든 줄에 번호가 매겨집니다. 그러나 선택 항목 만 인쇄하는 경우 (선택하고 인쇄 대화 상자를 표시하고 선택 항목이 인쇄중인 항목으로 지정되었는지 확인) Word에서 줄 번호를 올바르게 인쇄하지 않습니다. Word는 전체 문서 인 것처럼 선택 영역의 줄에 번호를 매 깁니다. 하나에서 시작하여 선택을 진행합니다. 더 나은 접근 방식은 Word가 문서에서 실제로 나타내는 선택 항목에 따라 줄 번호를 인쇄하는 것입니다. 예를 들어 57 ~ 72 행을 선택 항목으로 선택한 다음 인쇄 한 경우 Word는 1 ~ 15가 아닌 57 ~ 72까지의 숫자를 인쇄물 왼쪽에 인쇄해야합니다.
불행히도이 문제를 쉽게 해결할 수있는 방법은 없습니다. 한 가지 해결 방법은 선택 항목을 인쇄하지 않는 것입니다. (이 제안은 의미하는 것보다 더 경솔하게 들릴 수 있습니다.) 대신 페이지를 인쇄하십시오. 인쇄 대화 상자에서 선택 항목이 아닌 인쇄 할 페이지 범위를 지정합니다. 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
이 매크로에는 한 가지주의 사항이 있습니다. 문서 내에 숨겨진 텍스트가 있고 숨겨진 텍스트가 표시되지만 인쇄하도록 설정되지 않은 경우이 매크로는 인쇄하는 것처럼 해당 텍스트 줄을 계산합니다. 즉, 매크로는 화면에 표시된 숨겨진 텍스트를 인쇄한다고 가정합니다.
_ 참고 : _
이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.
link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요]
.
_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.
(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (8520)은 Microsoft Word 2007, 2010 및 2013에 적용됩니다.
여기에서 Word의 이전 메뉴 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.
link : / word-Correct_Line_Numbers_When_Printing_Selections [선택 사항을 인쇄 할 때 올바른 줄 번호]
.