Word 문서를 여러 문서로 분할하는 방법은 무엇인가요？

작성자아만다 리수정 날짜2025-01-09

분할이 필요한 대용량 Word 문서가 있다면, 이 튜토리얼에서 세 가지 효과적인 방법을 안내합니다. 특정 구분자 또는 페이지 단위로 VBA 를 사용하여 분할하거나, Kutools for Word 의 간편한 기능을 활용하는 방법 중 필요에 맞는 솔루션을 찾을 수 있습니다。

VBA 를 사용하여 지정된 구분자로 Word 문서 분할
Kutools for Word 을(를) 사용하여 제목/페이지/구역 나누기/페이지 나누기 기준으로 Word 문서 분할
VBA 를 사용하여 페이지 단위로 Word 문서 분할

VBA 를 사용하여 지정된 구분자로 Word 문서 분할

문서를 수동으로 분할하는 대신, 특정 구분자를 기준으로 Word 문서를 분할하는 VBA 를 사용할 수 있습니다。 다음 단계를 따르세요：

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

다음을 클릭합니다。삽입>모듈그런 다음 아래의 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

다음을 클릭하거나실행다음 키를 눌러 VBA 를 실행합니다。F5
Microsoft Word 팝업 창에서 다음을 클릭하여 확인하세요。예.

참고：

스크립트는 문서 내에서 분할 지점을 식별하기 위해「///」(코드의 22 번째 줄)를 검색합니다。 문서의 구분자가 「///」과 다르면 VBA 코드를 수정하여 올바른 구분자를 반영하거나， 원하는 분할 지점에 「///」을 삽입해야 합니다。
코드의 22 번째 줄에 있는「Notes」텍스트를 원하는 텍스트로 바꾸어 분할 문서의 파일 이름 접두사를 더 의미 있게 만들 수 있습니다。
분할된 문서는 원본 파일과 동일한 위치에 저장됩니다。
문서 끝에는 구분자를 넣지 마세요。 그렇지 않으면 빈 파일이 생성됩니다。

Kutools for Word 을(를) 사용하여 제목/페이지/구역 나누기/페이지 나누기 기준으로 Word 문서 분할

Kutools for Word 은 수동 작업이나 VBA 보다 더 편리하고 유연하게 문서를 분할할 수 있도록 지원합니다。 제목， 페이지， 구역 나누기， 페이지 나누기， 매 n 페이지마다 또는 사용자 지정 페이지 범위 등 다양한 옵션을 제공하여 특정 요구사항에 맞게 분할 프로세스를 조정할 수 있습니다。

다음을 클릭하여Kutools 플러스>분할기능을 활성화합니다。분할

문서 분할 대화 상자에서 다음 옵션을 설정하세요。

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

문서는 지정된 방법에 따라 분할되며， 생성된 파일은(는) 지정된 폴더에 저장됩니다。

참고：

다음을 기준으로 분할하는 경우매 n 페이지마다관련 입력란에 숫자를 지정하세요。
사용자 지정 페이지 범위의 경우 쉼표로 구분하여 입력하세요(예：1,3-5,12).

Word 에서 유사한 작업을 더 빠르게 처리하고 싶으신가요? Kutools for Word 을(를) 사용해 보시고 일상 업무를 간소화하세요。

다운로드 자세히 알아보기

여러 개의 Word 문서에 대해 크롬 및 엣지와 같은 탭 기반 탐색 및 편집 기능을 사용하세요！

크롬, 사파리, 엣지에서 여러 웹 페이지를 탐색하는 것처럼 Office Tab 을(를) 사용하면 단일 창에서 여러 Word 문서를 열고 관리할 수 있습니다。 이제 탭을 클릭하기만 하면 문서 간 전환이 간편합니다！
Office Tab 을(를) 지금 무료로 사용해 보세요！

Chrome과 같이 하나의 창에서 여러 Word 문서를 탐색

VBA 를 사용하여 페이지 단위로 Word 문서 분할

Word 문서를 각각 한 페이지씩 포함하는 여러 문서로 신속하게 분할해야 하는 경우， VBA 매크로를 사용하여 이 작업을 자동화할 수 있습니다。 다음 단계를 따르세요：

다음을 눌러 다음 창을 엽니다。Alt + F11Microsoft 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

다음을 클릭하거나실행다음 키를 눌러 VBA 를 실행합니다。F5

참고：분할된 문서는 원본 파일과 동일한 위치에 저장됩니다。

최고의 오피스 생산성 도구

Kutools for Word- 300 개 이상의 놀라운 기능으로 Word 경험을 한층 업그레이드하세요！100놀라운 기능！

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

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

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

🧹손쉬운 정리： 다음과 같은 요소들을 한 번에 제거하세요여분 공백/구역 나누기/텍스트 상자/하이퍼링크/ 더 많은 제거 도구는 다음 위치에서 확인하세요제거그룹。。。

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

🔍정밀 선택： 다음 요소를 정확하게 선택하세요특정 페이지/표/도형/제목 단락/ 더 많은선택 기능으로탐색을 강화하세요기능...

⭐주요 강화 기능:임의 위치로 이동/반복 텍스트 자동 삽입/문서 간 전환 Windows/11 변환도구...

🌍40+개 언어 지원: Kutools 를 선호하는 언어로 사용하세요 – 영어， 스페인어， 독일어， 프랑스어， 중국어 등 40+개 추가 언어를 지원합니다！

무료 다운로드 지금 구매 자세히 알아보기

Office Tab- Office 에 탭 기반 인터페이스를 도입하여 작업을 훨씬 쉽게 만듭니다

Word, Excel, PowerPoint, Publisher, Access, Visio 및 Project 에서 탭 기반 편집 및 읽기를 활성화합니다。
새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 생성합니다。
매일 수백 번의 마우스 클릭을 줄여 생산성을 50%% 향상시킵니다！