워드 파일을 새 페이지에 취합하는 매크로 코드
새 워드 문서에서 Alt + F11 을 눌러 매크로 편집기를 실행합니다. 이어서 [삽입] - [모듈]을 클릭하여 새 모듈을 추가한 다음, 아래 매크로 코드를 붙여넣고 실행합니다.
Sub MergeWordDocuments()
Dim dialog As FileDialog ' 파일선택창입니다.
Dim i As Integer
Dim masterDoc As Document ' 합칠 대상인 빈 문서입니다.
Dim sourceDoc As Document ' 병합할 각 워드 문서입니다.
Set masterDoc = ThisDocument ' 현재 문서를 마스터 문서로 설정합니다.
With masterDoc
.Activate ' 마스터 문서 활성화합니다.
Selection.EndKey Unit:=wdStory ' 커서를 문서의 맨 끝으로 이동합니다.
If Len(.Content.Text) > 1 Then ' 문서 내용이 1자 이상인 경우
Selection.InsertBreak Type:=wdPageBreak ' 페이지를 분리합니다.
End If
End With
Set dialog = Application.FileDialog(msoFileDialogFilePicker) ' 파일 선택 대화 상자를 실행합니다.
With dialog
.AllowMultiSelect = True '워드파일 다중 선택을 허용합니다.
.Filters.Add "Word Documents", "*.docx", 1 '워드 파일만 선택 가능하도록 설정합니다.
If .Show = -1 Then ' 파일이 선택된 경우,
For i = 1 To .SelectedItems.Count ' 선택된 각 파일에 대해 반복합니다.
Set sourceDoc = Documents.Open(.SelectedItems(i), Visible:=False)
sourceDoc.Select
Selection.Copy
masterDoc.Activate
Selection.EndKey Unit:=wdStory
Selection.Paste
Selection.InsertBreak Type:=wdPageBreak
sourceDoc.Close SaveChanges:=wdDoNotSaveChanges
Next i
Else
MsgBox "파일이 선택되지 않았습니다." ' 파일이 선택되지 않았을 경우 오류 메시지를 출력합니다.
Exit Sub ' 서브루틴 종료
End If
End With
MsgBox "파일 취합을 완료했습니다!" ' 작업 완료 메시지를 출력합니다.
End Sub
