워드 문서를 여러 문서로 분할하는 방법은 무엇입니까?

Author: Amanda Li Last Modified: 2025-05-21

대형 워드 문서를 더 작은 여러 문서로 분할해야 하는 경우, 이 튜토리얼에서는 세 가지 효과적인 방법을 안내합니다. 특정 구분 기호 또는 페이지별로 VBA를 사용하려는 경우나 Kutools for Word의 간소화된 기능을 선호하는 경우에도 여러분의 요구에 맞는 솔루션을 찾을 수 있을 것입니다.

VBA를 사용하여 지정된 구분 기호로 워드 문서 분할하기
Kutools for Word를 사용하여 제목/페이지/섹션 나누기/페이지 나누기로 워드 문서 분할하기
VBA를 사용하여 페이지별로 워드 문서 분할하기

VBA를 사용하여 지정된 구분 기호로 워드 문서 분할하기

문서를 수동으로 분할하는 대신, 특정 구분 기호를 사용하여 VBA로 워드 문서를 분할할 수 있습니다. 다음 단계를 따르세요:

Alt + F11을 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

클릭하세요 삽입 > 모듈그리고 아래 VBA 코드를 모듈 창에 붙여넣습니다.

Sub SplitNotes(delim As String, strFilename As String)
Dim doc As Document
Dim arrNotes
Dim I As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split(ActiveDocument.Range, delim)
Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections. Do you wish to proceed?", 4)
If Response = 7 Then Exit Sub
For I = LBound(arrNotes) To UBound(arrNotes)
If Trim(arrNotes(I)) <> "" Then
X = X + 1
Set doc = Documents.Add
doc.Range = arrNotes(I)
doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
doc.Close True
End If
Next I
End Sub
Sub test()
'delimiter & filename
SplitNotes "///", "Notes "
End Sub

실행 버튼을 클릭하거나 F5를 눌러 VBA를 실행합니다.
Microsoft Word 팝업에서 예(Y)를 클릭하여 확인합니다.

참고:

스크립트는 문서 내에서 "///" (코드의 22번째 줄)를 찾아 텍스트를 별도의 파일로 나눌 위치를 식별합니다. 문서의 구분 기호가 "///"와 다른 경우, 올바른 구분 기호를 반영하도록 VBA 코드를 업데이트하거나 원하는 분할 지점에 "///"를 포함하도록 문서를 수정해야 합니다.
코드의 22번째 줄에 있는 "Notes"를 다른 텍스트로 바꿔 분할된 문서들에 의미 있는 파일 이름 접두사를 만들 수 있습니다.
분할된 문서들은 원본 파일과 동일한 위치에 저장됩니다.
문서의 끝에는 구분 기호가 필요하지 않습니다. 그렇지 않으면 빈 파일이 생성될 수 있습니다.

Kutools for Word를 사용하여 제목/페이지/섹션 나누기/페이지 나누기로 워드 문서 분할하기

Kutools for Word는 수동 방법이나 VBA보다 더 편리하고 유연하게 문서를 분할할 수 있는 방법을 제공합니다. 제목, 페이지, 섹션 나누기, 페이지 나누기, 매 n 페이지마다 또는 사용자 정의 페이지 범위로 문서를 분할할 수 있는 다양한 옵션을 제공하여 분할 과정을 특정 요구사항에 맞게 조정할 수 있습니다.

Kutools for Word,AI ?가 탑재되어 있으며, 100개 이상의 유용한 기능을 제공하여 작업을 간소화합니다.

지금 다운로드

Kutools 플러스 > 분할(Split)을 클릭하여 분할 기능을 활성화합니다.

분할 문서 대화상자에서 다음 옵션을 구성합니다:

분할 기준(Split by) 드롭다운 목록에서 분할 방법을 선택합니다. 사용 가능한 옵션으로는 제목 1, 페이지 나누기, 구역 나누기, 페이지, 매 n 페이지마다 또는 사용자 정의 페이지 범위가 있습니다.
클릭하세요 찾아보기 버튼 분할된 문서를 저장할 대상 폴더를 선택합니다.
새 문서 이름의 접두사로 사용할 키워드를 입력합니다. 문서 접두사 필드에 입력합니다. 팁: 클릭하면 새로 고침 버튼 분할된 문서 이름을 미리 볼 수 있습니다. 미리보기 박스에서 확인할 수 있습니다.
확인을 클릭합니다.

문서는 지정된 방법에 따라 분할되며, 새 파일들은 지정된 폴더에 저장됩니다.

참고:

매 n 페이지마다 분할하는 경우 관련 상자에 숫자를 지정합니다.
사용자 정의 페이지 범위의 경우 쉼표로 구분하여 입력합니다(예: 1,3-5,12).

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

여러 Word 문서에 대한 탭 방식의 탐색 및 편집, Chrome과 Edge처럼!

Chrome, Safari 및 Edge에서 여러 웹페이지를 탐색하는 것처럼 Office Tab을 사용하면 하나의 창에서 여러 Word 문서를 열고 관리할 수 있습니다. 이제 문서 간 전환은 탭을 클릭하기만 하면 간단해집니다!
지금 바로 Office Tab을 무료로 사용해보세요!

Browse multiple word documents in one window just like in Chrome

VBA를 사용하여 페이지별로 워드 문서 분할하기

워드 문서를 각각 한 페이지씩 포함하는 여러 문서로 빠르게 분할해야 하는 경우, VBA 매크로를 사용하여 이 작업을 자동화할 수 있습니다. 아래 단계를 따르세요:

Alt + F11을 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

클릭하세요 삽입 > 모듈그런 다음 새 모듈 창에 다음 VBA 코드를 붙여넣습니다:

Sub SplitIntoPages()
Dim docMultiple As Document
Dim docSingle As Document
Dim rngPage As Range
Dim iCurrentPage As Integer
Dim iPageCount As Integer
Dim strNewFileName As String
Application.ScreenUpdating = False 'Makes the code run faster and reduces screen flicker a bit.
Set docMultiple = ActiveDocument 'Work on the active document
Set rngPage = docMultiple.Range 'Instantiate the range object
iCurrentPage = 1
'Get the document's page count
iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
Do Until iCurrentPage > iPageCount
    If iCurrentPage = iPageCount Then
        rngPage.End = ActiveDocument.Range.End 'Last page (no next page)
    Else
        'Find the beginning of the next page
        'Must use the Selection object. The Range.Goto method will not work on a page
        Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
        'Set the end of the range to the point between the pages
        rngPage.End = Selection.Start
    End If
    rngPage.Copy 'Copy the page into the Windows clipboard
    Set docSingle = Documents.Add 'Create a new document
    docSingle.Range.Paste 'Paste the clipboard contents to the new document
    'Remove any manual page break to prevent a second blank
    docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
    'Build a new sequentially numbered file name based on the original multi-paged file name and path
    strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
    docSingle.SaveAs strNewFileName 'Save the new single-paged document
    iCurrentPage = iCurrentPage + 1 'Move to the next page
    docSingle.Close 'Close the new document
    rngPage.Collapse wdCollapseEnd 'Go to the next page
Loop 'Go to the top of the do loop
Application.ScreenUpdating = True 'Restore the screen updating
'Destroy the objects.
Set docMultiple = Nothing
Set docSingle = Nothing
Set rngPage = Nothing
End Sub