Skip to main content

Word 문서를 5페이지 또는 n페이지마다 별도의 파일로 분할하는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-08-06

대용량 Word 문서 작업 시, 더 쉬운 관리, 공유 또는 편집을 위해 문서를 작은 개별 파일로 분할해야 할 수 있습니다. 문서를 5페이지, 10페이지 또는 지정된 페이지 수마다 분할하는 것은 긴 콘텐츠를 보다 효율적으로 관리하기 위한 실용적인 해결책이 될 수 있습니다.

수동으로 페이지를 하나씩 복사하고 붙여넣는 것은 시간이 많이 걸리고 비효율적입니다. 이 튜토리얼에서는 Word 문서를 N페이지마다 별도의 파일로 분할하는 빠르고 쉬운 방법을 소개합니다.

VBA 코드를 사용하여 Word 문서를 N페이지마다 별도의 파일로 분할하기

놀라운 기능을 사용하여 Word 문서를 N페이지마다 별도의 파일로 분할하기


VBA 코드를 사용하여 Word 문서를 N페이지마다 별도의 파일로 분할하기

매 N페이지마다 대형 문서를 별도의 파일로 분할하려면 다음 VBA 코드가 도움이 될 수 있습니다. 다음 단계를 따르세요:

  1. ALT + F11을 눌러 Microsoft Visual Basic for Applications 창을 엽니다.
  2. 삽입 > 모듈을 클릭하고 다음 코드를 빈 모듈에 복사하여 붙여넣습니다.
  3. Sub DocumentSplitter()
        Dim xDoc As Document, xNewDoc As Document
        Dim xSplit As String, xCount As Long, xLast As Long
        Dim xRngSplit As Range, xDocName As String, xFileExt As String
        Dim xRegEx As RegExp
        Dim xPageCount As Integer
        Dim xShell As Object, xFolder As Object, xFolderItem As Object
        Dim xFilePath As String
        On Error Resume Next
        Set xDoc = Application.ActiveDocument
        Set xShell = CreateObject("Shell.Application")
        Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
        If TypeName(xFolder) = "Nothing" Then Exit Sub
        Set xFolderItem = xFolder.Self
        xFilePath = xFolderItem.Path & "\"
        Application.ScreenUpdating = False
        Set xNewDoc = Documents.Add(Visible:=False)
        xDoc.Content.WholeStory
        xDoc.Content.Copy
        xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
        With xNewDoc
            xPageCount = .ActiveWindow.Panes(1).Pages.Count
    L1:     xSplit = InputBox("The document contains " & xPageCount & " pages." & _
                     vbCrLf & vbCrLf & "Please enter the number of pages per split:", "Kutools for Word", xSplit)
            If Len(Trim(xSplit)) = 0 Then Exit Sub
            Set xRegEx = New RegExp
            With xRegEx
                .MultiLine = False
                .Global = True
                .IgnoreCase = True
                .Pattern = "[^0-9]"
            End With
            If xRegEx.Test(xSplit) = True Then
                MsgBox "Please enter a valid page number:", vbInformation, "Kutools for Word"
                Exit Sub
            End If
            If VBA.Int(xSplit) >= xPageCount Then
                MsgBox "The entered number exceeds the total page count of the document." & vbCrLf & "Please enter a valid number.", vbInformation, "Kutools for Word"
                GoTo L1
            End If
            xDocName = xDoc. Name
            xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
            xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
            xFilePath = xFilePath & xDocName
            For xCount = 0 To Int(xPageCount / xSplit)
                xPageCount = .ActiveWindow.Panes(1).Pages.Count
                If xPageCount > xSplit Then
                    xLast = xSplit
                Else
                    xLast = xPageCount
                End If
                Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
                Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
                xRngSplit.Start = .Range.Start
                xRngSplit.Cut
                Documents.Add
                Selection.Paste
                ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
                ActiveWindow.Close
            Next xCount
            Set xRngSplit = Nothing
            xNewDoc.Close wdDoNotSaveChanges
            Set xNewDoc = Nothing
        End With
        Application.ScreenUpdating = True
    End Sub
  4. 코드를 붙여넣은 후에도 여전히 Microsoft Visual Basic for Applications 창에서 도구 > 참조를 클릭합니다. 나타나는 참조 - 프로젝트 대화 상자에서 Microsoft VBScript Regular Expressions 5.5 옵션을 사용 가능한 참조 목록에서 선택하세요. 스크린샷을 참조하세요:
    VBA window with Tools > References selected Arrow Microsoft VBScript Regular Expressions 5.5 checked in the References-Project dialog box
  5. 확인을 클릭한 다음 F5를 눌러 코드를 실행합니다.
  6. 폴더 찾아보기 대화 상자가 나타납니다. 분할된 파일을 저장할 폴더를 선택하고 확인을 클릭합니다.
  7. Browse For Folder dialog box

  8. 또 다른 프롬프트가 나타나며, 분할할 페이지 수를 묻습니다. 원하는 페이지 수를 입력하고 확인을 클릭합니다.
  9. Dialog box for entering the page number to split based on

  10. 문서는 매 N페이지마다 별도의 파일로 분할됩니다. 결과를 확인하려면 지정된 폴더로 이동하세요.
  11. The document is split into separate files every N pages


놀라운 기능을 사용하여 Word 문서를 N페이지마다 별도의 파일로 분할하기

Kutools for Word는 강력한 분할 기능을 제공하며, 이를 통해 제목 1, 페이지 나누기, 구역 나누기 또는 페이지를 기준으로 큰 Word 문서를 여러 개별 파일로 신속하게 분할할 수 있습니다. 이 기능은 번거로운 수작업 과정을 간소화합니다.

Kutools for Word,AI 🤖가 탑재되어 있으며, 100개 이상의 유용한 기능을 제공하여 작업을 간소화합니다.
  1. Kutools 플러스 > 분할을 클릭합니다.

    Split button on the Kutools tab on the ribbon

  2. 나타나는 대화 상자에서 필요한 옵션을 다음과 같이 구성합니다:
    1. 분할 기준 메뉴에서 매 n 페이지 옵션을 선택합니다.
    2. 입력 상자에 n 값을 지정합니다.
    3. 저장 위치를 선택합니다.
    4. 분할된 문서에 접두사를 지정합니다.

      Split Document dialog box

  3. 설정을 완료한 후 확인을 클릭합니다. 문서는 선택한 옵션(예: 매 7페이지)에 따라 여러 파일로 분할됩니다.

    The document is split into separate files every N pages

Kutools for Word의 분할 기능을 사용하면 대형 문서를 작고 관리하기 쉬운 파일로 나누는 것이 매우 간단하고 효율적입니다.

Kutools for Word는 작업을 간소화하고 문서 처리 기술을 향상시키는 최고의 Word 추가 기능입니다. 지금 바로 구매하세요!

최고의 오피스 생산성 도구

Kutools for Word - Word 작업 경험을 100개 이상의 놀라운 기능으로 한 단계 업그레이드하세요!

🤖 Kutools AI Features: AI 도우미 / 실시간 어시스턴트 / 슈퍼 폴리시(형식 유지) / 슈퍼 번역(형식 유지) / AI 수정 / AI 교정...

📘 문서 마스터: 페이지 분할 / 문서 병합 / 선택 영역을 다양한 형식(PDF/TXT/DOC/HTML 등)으로 내보내기 / 일괄 PDF 변환...

콘텐츠 편집: 여러 파일에서 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정 / 표 행과 열 전환 / 표를 텍스트로 변환...

🧹 손쉬운 정리: 여분의 공백/구역 나누기/텍스트 상자/하이퍼링크 제거로 깔끔하게 청소하세요. 더 다양한 제거 도구는 제거 그룹에서 확인하세요...

창의적 삽입: 천 단위 구분기호 삽입 / 체크 박스 / 라디오 버튼 / QR 코드 / 바코드 / 여러 그림 삽입 / 더 많은 기능은 삽입 그룹에서 확인하세요...

🔍 정밀 선택: 특정 페이지//도형/제목 단락을 신속하게 선택하고, 더 많은 선택 기능으로 탐색을 향상해보세요...

스타 기능: 원하는 위치로 빠르게 이동 / 반복 텍스트 자동 삽입 / 문서 창 전환 /11 가지 변환 도구 등...

🌍 40개 이상의 언어 지원: Kutools를 원하는 언어로 사용하세요 – 영어, 스페인어, 독일어, 프랑스어, 중국어 등40개 이상의 언어를 지원합니다!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 이 기능들을 사용해 보고 싶으시다면 지금 Kutools for Word를 다운로드하세요! 🚀
 

최고의 오피스 생산성 도구

Kutools for Word - 100+ Word용 도구