비즈니스 환경에서 문서의 여러 사본을 인쇄하는 것은 드문 일이 아닙니다. 때때로 복사본에 번호를 매기는 것이 좋습니다. 예를 들어, 첫 번째 사본에는 (아마 머리글 또는 바닥 글에) 텍스트 “사본 1″이 있고 두 번째 사본에는 “사본 2″라는 텍스트가 포함됩니다.

물론 한 가지 옵션은 문서의 개별 사본을 인쇄하여 각 인쇄 사이의 사본 번호를 편집하는 것입니다. 이것은 지루하고 정말 빠릅니다. 순차 번호 매기기 필드 (다른 _WordTips_에서 논의 됨)를 활용하고 인쇄해야하는 사본 수와 동일하게 만들 수도 있습니다. 따라서 25 매를 인쇄해야하는 경우 전체 문서 (순차 번호 매기기 필드 포함)를 복사하고 문서 끝으로 이동 한 다음 24 번 더 붙여 넣으면됩니다. 이로 인해 전체 문서가 다소 커지고 문제에 접근하는 더 쉬운 방법이 있습니다.

매크로를 사용하지 않는이 문제에 대한 가장 쉬운 해결책은 Word의 편지 병합 기능을 사용하는 것입니다. 각 사본에 할당 할 번호가 포함 된 간단한 데이터 소스를 사용합니다. 그런 다음 문서의 적절한 위치에 병합 필드를 배치하고 병합을 실행합니다. 각 사본에는 원하는 사본 번호가 포함됩니다. 이 접근 방식을 사용하는 추가 이점은 필요에 따라 병합시 추가 정보를 사용할 수 있다는 것입니다. 예를 들어, 문서의 각 사본이 특정 사람에게 할당 된 경우 사본을받을 사람의 이름이 포함 된 다른 데이터 필드를 데이터 소스에 추가 할 수 있습니다. 그런 다음 병합 된 각 문서에서도 그 사람의 이름을 인쇄 할 수 있습니다.

원하는 경우 매크로를 사용하여 번호가 매겨진 사본을 인쇄 할 수 있습니다.

예를 들어, 다음 매크로는 사용할 시작 사본 번호와 함께 인쇄 할 사본 수를 묻습니다. (이는 25 매를 인쇄 한 다음 누군가 26 ~ 35 번으로 번호가 매겨진 10 개의 두 번째 배치를 인쇄하도록 요청하는 경우 매우 유용합니다.) 매크로는 세션 간의 마지막 사본 번호도 저장하므로 기본값으로 사용됩니다. 다음에 매크로를 실행할 때.

Public Sub PrintNumberedCopies1()

Dim varItem As Variable     Dim bExists As Boolean     Dim lCopiesToPrint As Long     Dim lCounter As Long     Dim lCopyNumFrom As Long

' ensure our doc variable exists     bExists = False     For Each varItem In ActiveDocument.Variables         If varItem.Name = "CopyNum" Then             bExists = True             Exit For         End If     Next varItem

' initialize document variable if doesn't exist     If Not bExists Then         ActiveDocument.Variables.Add _             Name:="CopyNum", Value:=0     End If

' ask how many to print     lCopiesToPrint = InputBox( _         Prompt:="How many copies?", _         Title:="Print And Number Copies", _         Default:="1")



' ask where to start numbering     lCopyNumFrom = CLng(InputBox( _         Prompt:="Number at which to start numbering copies?", _         Title:="Print And Number Copies", _         Default:=CStr(ActiveDocument.Variables("CopyNum") + 1)))



' loop through the print-write-print cycle     For lCounter = 0 To lCopiesToPrint - 1         ' update the document variable         ActiveDocument.Variables("CopyNum") = _             lCopyNumFrom + lCounter         ' print this numbered copy         ActiveDocument.PrintOut Copies:=1     Next lCounter End Sub

이 매크로를 사용하려면 두 가지 다른 작업을 수행해야합니다.

먼저 문서에서 사본 번호를 표시 할 위치를 지정해야합니다. 인쇄해야하는 지점에 다음 필드를 삽입하기 만하면됩니다 (Ctrl + F9를 눌러 필드 중괄호를 삽입한다는 것을 기억하십시오).

{ DOCVARIABLE "CopyNum" }

두 번째로해야 할 일은 인쇄 할 때 필드를 업데이트하도록 Word가 구성되어 있는지 확인하는 것입니다. 이제 매크로를 실행할 때 인쇄 할 매수와 사용할 시작 번호를 묻는 메시지가 표시됩니다. 문서 변수가 업데이트되고 문서의 단일 사본이 인쇄됩니다. 이 단계는 인쇄하도록 선택한 횟수만큼 반복됩니다.

불행히도이 매크로 솔루션은 모든 버전의 Word에서 작동하지 않습니다. 예를 들어, Word 97 문서의 머리글에 DOCVARIABLE 필드를 배치 한 다음 문서를 인쇄하면 Word가 즉시 충돌합니다.

이 문제를 해결하는 방법? 다른 접근 방식을 사용하십시오. (유연하지 않으면 Word는 아무것도 아닙니다.) 다음 매크로는 모든 최신 버전의 Word에서 작동합니다. 문서 변수 대신 사용자 정의 문서 속성을 사용하는 이전 버전의 변형입니다.

Public Sub PrintNumberedCopies2()

Dim varItem As DocumentProperty     Dim bExists As Boolean     Dim lCopiesToPrint As Long     Dim lCounter As Long     Dim lCopyNumFrom As Long

' ensure our doc variable exists     bExists = False     For Each varItem In ActiveDocument.CustomDocumentProperties         If varItem.Name = "CopyNum" Then             bExists = True             Exit For         End If     Next varItem

' initialize document variable if doesn't exist     If Not bExists Then         ActiveDocument.CustomDocumentProperties.Add _             Name:="CopyNum", LinkToContent:=False, _             Type:=msoPropertyTypeNumber, Value:=0     End If

' ask how many to print     lCopiesToPrint = InputBox( _         Prompt:="How many copies?", _         Title:="Print And Number Copies", _         Default:="1")



' ask where to start numbering     lCopyNumFrom = CLng(InputBox( _         Prompt:="Number at which to start numbering copies?", _         Title:="Print And Number Copies", _         Default:=CStr(ActiveDocument.CustomDocumentProperties("CopyNum") + 1)))



' loop through the print-write-print cycle     For lCounter = 0 To lCopiesToPrint - 1         ' update the document variable         ActiveDocument.CustomDocumentProperties("CopyNum") = _             lCopyNumFrom + lCounter         ' print this numbered copy         ActiveDocument.PrintOut Copies:=1     Next lCounter End Sub

이 매크로를 사용하려면 두 가지 다른 작업을 수행해야합니다.

먼저 문서에서 사본 번호를 표시 할 위치를 지정해야합니다. 인쇄해야하는 지점에 다음 필드를 삽입하기 만하면됩니다 (Ctrl + F9를 눌러 필드 중괄호를 삽입한다는 것을 기억하십시오).

{ DOCPROPERTY "CopyNum" }

필드를 처음 삽입 할 때 “오류! 알 수없는 문서 속성 이름”과 같은 필드에서 반환 된 오류 메시지가 표시 될 수 있습니다. 걱정하지 마세요. 이것은 사라지고 매크로를 실행 한 후 적절한 사본 번호로 대체됩니다.

두 번째로해야 할 일은 인쇄 할 때 필드를 업데이트하도록 Word가 구성되어 있는지 확인하는 것입니다. 이제 매크로를 실행할 때 인쇄 할 매수와 사용할 시작 번호를 묻는 메시지가 표시됩니다. 문서 변수가 업데이트되고 문서의 단일 사본이 인쇄됩니다. 이 단계는 인쇄하도록 선택한 횟수만큼 반복됩니다.

_ 참고 : _

이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (844)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :

link : / wordribbon-Printing_Copy_Numbers [인쇄 사본 번호].