Word의 표준 편지 병합 기능을 사용하면 프린터, 새 문서 또는 일련의 전자 메일 메시지에 직접 병합 할 수 있습니다.

그러나 각 데이터 원본 레코드에 대해 개별 문서를 만들어야하는 경우가있을 수 있습니다. 불행히도 Word는이 작업을 수행하는 방법을 제공하지 않습니다. 다행히도 작업을 처리하는 매크로를 만들 수 있습니다. 다음은 편지 병합 기능으로 만든 문서를 “분리”하는 매크로입니다. 문서의 각 섹션 (데이터 소스 레코드 당 하나의 섹션이 있음)을 가져 와서 자체 문서 파일에 저장합니다.

Sub Splitter()

Dim numlets As Integer     Dim Counter As Integer     Dim BaseName As String     Dim DocName As String

Selection.EndKey Unit:=wdStory     numlets = Selection.Information(wdActiveEndSectionNumber)

If numlets > 1 Then numlets = numlets - 1     Selection.HomeKey Unit:=wdStory     BaseName = "c:\Let"

For Counter = 1 To numlets         DocName = BaseName & Right("000" & LTrim(Str(Counter)), 3)

ActiveDocument.Sections.First.Range.Cut         Documents.Add         Selection.Paste         Selection.MoveLeft Unit:=wdCharacter, Count:=1         Selection.Delete Unit:=wdCharacter, Count:=1         ActiveDocument.SaveAs FileName:=DocName         ActiveWindow.Close     Next Counter End Sub

매크로가 실행되면 Ltr001에서 Ltrxxx까지의 일련의 파일이 생성됩니다. 여기서 xxx는 원본 문서의 섹션 수입니다.

실제로 매크로는 문서의 섹션 수보다 적은 하나의 “Ltr”파일을 만듭니다. 문서의 마지막 섹션은 원본 파일 (처리중인 파일)에 남아 있습니다. 파일 이름이나 파일이 저장된 위치를 변경하려면 매크로에서 BaseName 변수의 설정을 변경하십시오.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (11593)은 Office 365의 Microsoft Word 2007, 2010, 2013, 2016, 2019 및 Word에 적용됩니다. Word의 이전 메뉴 인터페이스 :

link : / word-Creating_Files_with_Mail_Merge [메일 병합으로 파일 만들기].