📝 Excel VBA로 영어 지문/해석 워드 문서 자동 생성 (상세 튜토리얼)

1단계: 엑셀 파일 준비하기

가장 먼저 데이터를 담고 매크로를 실행할 엑셀 파일을 준비해야 합니다.

1. 매크로 통합 문서로 저장 (⭐가장 중요!)

   • 새 엑셀 파일을 열고, 즉시 [파일] > [다른 이름으로 저장]을 클릭합니다.

   • 파일 형식을 Excel 매크로 사용 통합 문서 (*.xlsm)*로 선택하고, 파일 이름은 영어 지문 생성기.xlsm로 지정하여 저장합니다.

   • 이유: 일반 엑셀 파일(.xlsx)은 보안상의 이유로 매크로(VBA 코드)를 저장할 수 없습니다. 반드시 .xlsm 확장자로 저장해야 코드가 사라지지 않습니다.

2. 데이터 입력

   • 엑셀 시트의 첫 번째 행(A1, B1, C1)에 각각 제목, 지문, 해석이라고 입력합니다.

   • A2 셀부터 아래로 제공해주신 데이터를 차례대로 복사하여 붙여넣습니다. (아래 2개 문항 예시)

3. 매크로 실행 버튼 만들기

   • 상단 메뉴에서 [개발 도구] 탭을 클릭합니다.

     • 만약 [개발 도구] 탭이 없다면? 파일 > 옵션 > 리본 사용자 지정 메뉴로 이동하여 오른쪽 목록의 개발 도구에 체크하고 확인을 누르세요.

   • [개발 도구] 탭에서 [삽입]을 클릭하고, 양식 컨트롤에 있는 단추(버튼) 모양 아이콘을 선택합니다.

   • 시트의 비어있는 공간에 마우스로 드래그하여 적당한 크기의 버튼을 만듭니다.

   • 매크로 지정 창이 나타나면 일단 [취소]를 누릅니다.

   • 생성된 버튼 위에서 마우스 오른쪽 버튼을 클릭하고 텍스트 편집을 눌러 "워드 문서 생성" 이라고 이름을 바꿔줍니다.

(주의) 데이터가 있는 영어 지문 생성기.xlsm 파일에서 

아래 작업을 하셔야 합니다.

2단계: VBA 편집기 열고 코드 작성하기

이제 실제로 워드 문서를 만드는 마법 같은 코드를 작성할 차례입니다.

1. VBA 편집기 열기

   • 키보드에서 Alt + F11 키를 동시에 눌러 VBA 편집기(VBE) 창을 엽니다.

2. 모듈(Module) 추가하기

   • VBA 편집기의 메뉴에서 [삽입] > [모듈]을 클릭합니다. 오른쪽에 하얀색의 빈 코드 편집 창이 나타납니다. 앞으로 모든 코드는 이 곳에 작성합니다.

     

3. Word 기능 사용 권한 얻기 (⭐참조 설정)

   • 이 단계는 엑셀이 워드를 제어하기 위해 반드시 필요합니다.

   • 메뉴에서 [도구] > [참조]를 클릭합니다.

   • 새로운 창이 뜨면 스크롤을 내려 Microsoft Word XX.X Object Library 항목을 찾아 체크하고 [확인]을 누릅니다. (XX.X는 설치된 오피스 버전에 따라 16.0, 15.0 등으로 다를 수 있습니다.)

     

4. VBA 코드 복사 및 붙여넣기

   • 아래의 전체 코드를 복사하여 방금 전 열었던 하얀 모듈 창에 그대로 붙여넣습니다. 코드 각 줄의 역할은 주석(')에 상세히 설명되어 있습니다.

' Sub 프로시저 시작: "CreateEnglishDocs" 라는 이름의 매크로를 정의합니다.
Sub CreateEnglishDocs()

    ' === 1. 변수 선언: 코드를 실행하기 위해 필요한 저장 공간(변수)들을 만듭니다. ===
    
    Dim wdApp As Word.Application     ' 워드 프로그램 자체를 담을 변수
    Dim wdDoc As Word.Document        ' 생성될 워드 문서를 담을 변수
    Dim ws As Worksheet               ' 현재 엑셀 시트를 담을 변수
    Dim lastRow As Long               ' 데이터가 있는 마지막 행의 번호를 저장할 변수
    Dim i As Long                     ' 반복문을 위한 카운터 변수
    
    Dim savePath As String            ' 워드 파일이 저장될 폴더 경로
    Dim docTitle As String            ' 문서 제목 (예: "18번")
    Dim docPassage As String          ' 영어 지문 내용
    Dim docTranslation As String      ' 한글 해석 내용
    
    ' === 2. 초기 설정: 매크로 실행을 위한 기본 환경을 설정합니다. ===
    
    ' 이 VBA 코드가 들어있는 엑셀 파일의 "Sheet1" 시트를 변수 ws에 할당합니다.
    ' 만약 시트 이름이 다르다면 "Sheet1" 부분을 실제 시트 이름으로 바꿔주세요.
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' A열을 기준으로, 데이터가 입력된 마지막 행 번호를 찾아서 lastRow 변수에 저장합니다.
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 워드 파일을 저장할 경로를 현재 엑셀 파일이 있는 폴더로 지정합니다.
    savePath = ThisWorkbook.Path & ""
    
    ' 화면 업데이트를 잠시 멈춰서 매크로 실행 속도를 높입니다.
    Application.ScreenUpdating = False
    
    ' === 3. 핵심 로직: 엑셀 데이터를 읽고 워드 문서를 생성하는 과정을 반복합니다. ===
    
    ' 2번째 행(실제 데이터 시작)부터 마지막 행까지 한 행씩 반복 실행합니다.
    For i = 2 To lastRow
    
        ' -- 엑셀에서 데이터 읽어오기 --
        docTitle = ws.Cells(i, "A").Value      ' i행 A열 (제목) 값을 변수에 저장
        docPassage = ws.Cells(i, "B").Value   ' i행 B열 (지문) 값을 변수에 저장
        docTranslation = ws.Cells(i, "C").Value ' i행 C열 (해석) 값을 변수에 저장
        
        ' -- 워드 프로그램 실행 및 새 문서 생성 --
        Set wdApp = New Word.Application      ' 새로운 워드 프로그램을 메모리에 생성
        Set wdDoc = wdApp.Documents.Add       ' 워드 프로그램에 새 문서를 추가
        
        ' -- 읽어온 데이터를 워드 문서에 쓰고 서식 꾸미기 --
        With wdDoc.Content
            ' 1. 전체 글꼴과 크기 기본 설정
            .Font.Name = "맑은 고딕"
            .Font.Size = 11
            
            ' 2. 제목 추가 및 서식 변경
            .InsertAfter "[" & docTitle & "] 영어 지문 분석" & vbCrLf & vbCrLf
            .Paragraphs.Last.Range.Font.Bold = True  ' 마지막에 추가된 문단(제목)을 굵게
            .Paragraphs.Last.Range.Font.Size = 16    ' 제목 글자 크기 키우기
            .Paragraphs.Last.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '가운데 정렬
            
            ' 3. 원문(지문) 추가 및 서식 변경
            .InsertAfter "■ 원문 (English)" & vbCrLf
            .Paragraphs.Last.Range.Font.Bold = True
            .Paragraphs.Last.Range.Font.Size = 13
            .InsertAfter docPassage & vbCrLf & vbCrLf ' 지문 내용 추가하고 두 줄 띄우기
            
            ' 4. 해석 추가 및 서식 변경
            .InsertAfter "■ 해석 (Korean)" & vbCrLf
            .Paragraphs.Last.Range.Font.Bold = True
            .Paragraphs.Last.Range.Font.Size = 13
            .InsertAfter docTranslation & vbCrLf      ' 해석 내용 추가
        End With
        
        ' -- 작업한 워드 문서 저장 및 닫기 --
        ' 파일 이름 형식: 영어 지문_18번.docx
        wdDoc.SaveAs2 FileName:=savePath & "영어 지문_" & docTitle & ".docx"
        wdDoc.Close ' 문서를 닫음 (저장 여부 묻지 않음)
        
        ' -- 워드 프로그램 종료 --
        wdApp.Quit
        
        ' -- 다음 반복을 위해 변수 정리 (메모리 관리) --
        Set wdDoc = Nothing
        Set wdApp = Nothing
        
    Next i ' 다음 행으로 이동하여 For문 반복
    
    ' === 4. 마무리: 모든 작업 완료 후 사용자에게 알림 ===
    
    ' 멈췄던 화면 업데이트를 다시 켭니다.
    Application.ScreenUpdating = True
    
    ' 작업이 완료되었음을 메시지 상자로 알려줍니다.
    MsgBox "총 " & (lastRow - 1) & "개의 영어 지문 파일 생성이 완료되었습니다.", vbInformation, "작업 완료"

End Sub

3단계: 버튼에 매크로 연결 및 실행

1. VBA 편집기 창을 닫고 다시 엑셀 화면으로 돌아옵니다.

2. 만들어 두었던 [워드 문서 생성] 버튼 위에서 마우스 오른쪽 버튼을 클릭합니다.

3. 나타나는 메뉴에서 [매크로 지정]을 선택합니다.

   

4. 매크로 목록에서 방금 만든 CreateEnglishDocs를 클릭하고 [확인]을 누릅니다.

이제 모든 준비가 끝났습니다. [워드 문서 생성] 버튼을 클릭해보세요!

4단계: 결과 확인하기

버튼을 누르면 엑셀 데이터의 수만큼 작업이 반복된 후, "작업 완료" 메시지 박스가 나타납니다.

이제 여러분의 엑셀 파일(영어 지문 생성기.xlsm)이 저장된 폴더를 확인해 보세요. 영어 지문_18번.docx, 영어 지문_19번.docx... 와 같이 각 지문별로 완벽하게 서식이 적용된 워드 문서들이 생성된 것을 보실 수 있습니다!

[생성된 워드 파일 예시: 영어 지문_18번.docx]

[18번] 영어 지문 분석

■ 원문 (English)

ACC Travel Agency Customers: Have you ever wanted to enjoy a holiday in nature? This summer is the best time to turn your dream into reality. We have a perfect travel package for you...

■ 해석 (Korean)

ACC 여행사 고객님께: 자연 속에서 휴가를 즐기는 것을 원한 적이 있습니까? 이번 여름이 당신의 꿈을 현실로 바꿀 최고의 시간입니다...

이처럼 VBA를 활용하면 단순 반복 업무를 극적으로 줄이고, 원하는 서식의 문서를 대량으로 자동 생성할 수 있습니다. 축하합니다! 🎉