Heading 1 기준으로 Word 문서를 여러 파일로 분할하는 방법(단계별 가이드)

보고서, 교과서, 매뉴얼 또는 프로젝트 문서와 같은 긴 Word 문서 작업 시 파일을 더 작은 단위(예: 장별)로 나눠야 할 경우가 있습니다. 이미 문서에서 Heading 1 를 주요 섹션 제목으로 사용하고 있다면 분할 작업이 훨씬 수월해집니다。 다음은 이를 효율적으로 수행하는 포괄적인 가이드입니다。

• Word 문서를 준비하세요
• 방법 1: 개요 기능을 사용하여 제목 1 별로 Word 분할
• 방법 2: VBA 코드를 사용하여 제목 1 별로 Word 분할
• 방법 3: Kutools for Word 를 사용하여 제목 1 별로 Word 분할
• 결론

Word 문서를 준비하세요

어떤 방법을 적용하기 전에 문서가 올바르게 구조화되어 있는지 확인하세요. Word 는 Heading 1 이 정확히 적용된 경우에만 분할 지점을 인식할 수 있습니다。

스타일 적용：

제목 수준에 따라 일관되게 제목 스타일을 적용하세요。 예를 들어， 수준 1 제목에는 Heading 1 스타일을， 수준 2 제목에는 Heading 2 스타일을 사용하는 식입니다。

제목 선택 → 홈 탭으로 이동 → 스타일 갤러리에서 Heading 1 클릭。

파일 백업：

분할 작업 전 반드시 원본 문서의 사본을 저장하세요。 개요 보기와 같은 일부 방법은 되돌리기 어려울 수 있습니다。

방법 1: 개요 기능을 사용하여 Heading 1 기준으로 Word 분할

사실 Word 의 기본 제공 개요 보기 기능을 사용하면 이 작업이 매우 간단합니다。 이 기능은 Heading 1 섹션을 자동으로 감지하여 문서 구조를 정리하고 각 장을 별도 파일로 내보낼 수 있게 해줍니다。 추가 애드인이나 복잡한 단계가 전혀 필요 없습니다。

1. Word 문서를 열고보기탭으로 이동하여개요를 클릭하세요。 아래 스크린샷 참조：
   
2. 표시되는개요 작성탭에서표시 수준드롭다운을수준 1으로 설정하세요。 그러면 Heading 1 제목을 제외한 모든 내용이 접힙니다。
   
3. 그 후Ctrl + A를 눌러 전체 텍스트를 선택합니다。 그런 다음문서 표시를마스터 문서그룹에서 클릭하세요。
   
4. 계속해서만들기버튼을 클릭하세요. 그러면 Word 가 각 섹션을 얇은 상자로 감쌉니다。
   
5. 파일 > 다른 이름으로 저장으로 이동하세요. 새 폴더을 선택하면 Word 는 Heading 1 별로 자동으로 별도의.docx파일을 생성하며， 파일 이름으로 해당 제목 텍스트를 사용합니다。 또한 모든 분할 파일에 대한 하이퍼링크 목록을 포함한 별도의 색인 문서도 생성되어 한 번의 클릭으로 원하는 문서를 열 수 있습니다。
   

방법 2: VBA 코드를 사용하여 Heading 1 기준으로 Word 분할

매우 긴 문서의 경우 개요 방법이 때때로 서식 오류를 일으킬 수 있습니다。 VBA 스크립트를 사용하는 것이 훨씬 깔끔하고 빠릅니다。

1. Alt + F11를 눌러Visual Basic for Applications창을 엽니다。
2. 클릭하여삽입>모듈을 선택하세요。 다음 코드를 빈 모듈에 복사하여 붙여넣으세요：
   

   Sub SplitDocByHeading1()
       Dim StrTmplt As String
       Dim StrPath As String
       Dim StrFlNm As String
       Dim Rng As Range
       Dim i As Long
       Dim Doc As Document
       Dim fDialog As FileDialog
       Const StrNoChr As String = """*./\:?|"
       Application.ScreenUpdating = False
       Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
       With fDialog
           .Title = "Select a folder to save the split documents"
           .AllowMultiSelect = False
           If .Show <> -1 Then
               MsgBox "Operation cancelled.", vbInformation, "Split by Heading 1"
               Application.ScreenUpdating = True
               Exit Sub
           End If
           StrPath = .SelectedItems(1)
       End With
       If Right(StrPath, 1) <> "\" Then
           StrPath = StrPath & "\"
       End If
       With ActiveDocument
           StrTmplt = .AttachedTemplate.FullName
           With .Range
               With .Find
                   .ClearFormatting
                   .Replacement.ClearFormatting
                   .Text = ""
                   .Replacement.Text = ""
                   .Style = wdStyleHeading1
                   .Format = True
                   .Forward = True
                   .Wrap = wdFindStop
                   .Execute
               End With
               Do While .Find.Found
                   Set Rng = .Duplicate
                   StrFlNm = Split(Rng.Paragraphs(1).Range.Text, vbCr)(0)
                   For i = 1 To Len(StrNoChr)
                       StrFlNm = Replace(StrFlNm, Mid(StrNoChr, i, 1), "_")
                   Next i
                   StrFlNm = StrFlNm & ".docx"
                   Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\HeadingLevel")
                   Set Doc = Documents.Add(Template:=StrTmplt, Visible:=False)
                   With Doc
                       .Range.FormattedText = Rng.FormattedText
                       .SaveAs2 FileName:=StrPath & StrFlNm, _
                                FileFormat:=wdFormatXMLDocument, _
                                AddToRecentFiles:=False
                       .Close SaveChanges:=False
                   End With
                   .Collapse wdCollapseEnd
                   .Find.Execute
               Loop
           End With
       End With
       Set Doc = Nothing
       Set Rng = Nothing
       Application.ScreenUpdating = True
       MsgBox "Split completed successfully.", vbInformation, "Split by Heading 1"
   End Sub
   

3. F5를 누르거나실행을 클릭하여 코드를 실행하세요。 분할 파일을 저장할 폴더 선택 창이 나타납니다。 아래 스크린샷 참조：
   
4. 클릭하여확인을 누르면 Word 가 즉시 Heading 1 섹션별로 .docx 파일을 생성합니다。 출력 결과를 확인하려면 폴더를 여세요。
   

방법 3: Kutools for Word 를 사용하여 Heading 1 기준으로 Word 분할

Word 의 기본 제공 도구나 VBA 를 사용해도 문서 분할이 가능하지만 여러 단계와 기술적 지식이 필요하며 서식이 손실될 수도 있습니다. Kutools for Word 는 훨씬 깔끔하고 효율적인 해결책을 제공합니다。 문서 분할 기능을 통해 Heading 1, 페이지 나누기， 구역 나누기， 페이지 등을 기준으로 한 번의 클릭으로 파일을 분할할 수 있으며 코딩이나 수작업 없이 모든 서식， 레이아웃， 이미지， 머리글 및 바닥글을 완벽히 유지합니다。 대용량 문서 작업 시 최적의 도구입니다。

Kutools for Word 를 다운로드하여 설치한 후다음 단계를 따르세요：

1. Kutools 플러스 > 분할으로 이동하세요。
   
2. 다음과 같은 옵션을 지정하세요：문서 분할대화 상자에서

   2.1에서제목 1을(를) 선택하세요。분할 기준드롭다운 목록에서(또한 페이지 나누기， 구역 나누기， 페이지， 매 n 페이지마다 등 다른 분할 규칙도 선택할 수 있습니다。)

   2.2새로 생성된 분할 파일을 저장할 폴더를 지정하세요。

   2.3에서확인버튼을 클릭하세요。

   팁：분할 파일의 제목 앞에 접두사를 추가하려면문서 접두사상자에 텍스트를 입력하면 됩니다。

   
   

결과：
Kutools 는 Heading 1 구조를 기반으로 즉시 여러 개의 Word 파일을 생성하며 모든 머리글과 바닥글을 완전히 보존합니다。

결론

관련 문서：