Mahmud는 문서의 개인화 된 사본을 인쇄하는 방법을 요청했습니다. 그는 한 줄에 하나씩 일반 텍스트 파일의 이름 목록으로 시작했으며 각 이름에 대해 현재 Word 문서의 복사본을 한 부 인쇄하려고했습니다. 또한 그는 문서의 헤더에 그 사람의 이름을 넣기를 원했습니다.

이러한 작업을 수행하는 프로세스는 매우 간단합니다. 텍스트 파일을 열고 이름을 가져 와서 헤더에 넣은 다음 문서를 인쇄합니다. 다른 이름이 잡히고 파일에 더 이상 이름이 없을 때까지 프로세스가 반복됩니다. 다음 매크로는 이러한 프로세스를 구현합니다.

Sub PutNamesInHeader()

Dim sName As String

Open "c:/names.txt" For Input As #5     Do While Not EOF(5)

' get the name         Line Input #5, sName

ActiveWindow.ActivePane.View.SeekView = _           wdSeekCurrentPageHeader         Selection.WholeStory         Selection.Delete         Selection.TypeText Text:=sName

ActiveWindow.ActivePane.View.SeekView = _           wdSeekMainDocument         ActiveDocument.PrintOut     Loop

Close #5

ActiveWindow.ActivePane.View.SeekView = _       wdSeekCurrentPageHeader     Selection.WholeStory     Selection.Delete     ActiveWindow.ActivePane.View.SeekView = _       wdSeekMainDocument End Sub

매크로의 까다로운 부분은 .SeekView 속성을 사용하여 작업 할 문서의 스토리를 지정하는 것입니다. 여기에 구현 된대로 .SeekView 속성은 머리글 영역과 주 문서 사이를 전환하는 데 반복적으로 사용됩니다. 루프 이후 (이름 잡기 및 인쇄)

완료되면 헤더 영역이 지워지고 .SeekView가 주 문서로 다시 전환됩니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (4366)은 Microsoft Word 2007, 2010, 2013 및 2016에 적용됩니다. 여기에서 Word의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / word-Printing_Personalized_Copies_of_a_Document [문서의 개인화 된 사본 인쇄].