매크로 보기 창을 팝업하고 이름을 지정한 다음 생성을 선택합니다.
팝업 매크로 기록 창에 매크로 코드를 입력하고 저장합니다. 아래 매크로 코드를 참고하십시오.
인쇄 번호를 추가할 위치에 입력 커서를 놓고 매크로를 실행하면 다음 창이 팝업됩니다. 첫 번째 창은 인쇄 번호를 입력하고 두 번째 창은 시작 번호를 입력하는 데 사용됩니다.
-응? 매크로 코드는 다음과 같습니다.
하위 인쇄 매수 ()
Macro 1 매크로
암담한 나만큼 길다
암담한 별
Dim lngCount
LngCount = InputBox ("인쇄할 사본 수 입력", "인쇄할 사본 수 입력", 1)
LngCount = ""인 경우
출구 커넥터
만약 ... 끝날거야
LngStart = InputBox ("인쇄할 시작 번호 입력", "인쇄할 시작 번호 입력", 1)
LngStart = ""인 경우
출구 커넥터
만약 ... 끝날거야
For I = lngStart 에서 lngCount 로
내가< 그렇다면 10
선택。 TypeText 텍스트: = "000 "& amp；; 나&
신청하다. 플롯 출력 파일 이름: = "",범위: =wdPrintAllDocument, 프로젝트: = _
WdPrintDocumentContent, Copies:= 1, Pages:= "",PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, printzoompaperwwidth:= 0, _
PrintZoomPaperHeight:=0
만약 ... 끝날거야
(I>= 10) 및 (I< 100) 인 경우
선택。 TypeText 텍스트: = "00 "& amp；; 나&
신청하다. 플롯 출력 파일 이름: = "",범위: =wdPrintAllDocument, 프로젝트: = _
WdPrintDocumentContent, Copies:= 1, Pages:= "",PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, printzoompaperwwidth:= 0, _
PrintZoomPaperHeight:=0
만약 ... 끝날거야
(I>= 100) 및 (I< 1000) 인 경우
선택。 TypeText 텍스트: = "0 "& amp；; 나&
신청하다. 플롯 출력 파일 이름: = "",범위: =wdPrintAllDocument, 프로젝트: = _
WdPrintDocumentContent, Copies:= 1, Pages:= "",PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, printzoompaperwwidth:= 0, _
PrintZoomPaperHeight:=0
만약 ... 끝날거야
(I>= 1000) 및 (I< 10000) 인 경우
선택。 유형 텍스트 텍스트: =i
신청하다. 플롯 출력 파일 이름: = "",범위: =wdPrintAllDocument, 프로젝트: = _
WdPrintDocumentContent, Copies:= 1, Pages:= "",PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, printzoompaperwwidth:= 0, _
PrintZoomPaperHeight:=0
만약 ... 끝날거야
선택。 백스페이스를 입력합니다
선택。 백스페이스를 입력합니다
선택。 백스페이스를 입력합니다
선택。 백스페이스를 입력합니다
그리고 나서
끝단 접합