Word 문서를 5 페이지 또는 n 페이지마다 별도의 파일로 분할하려면 어떻게 해야 하나요？
긴 Word 문서 작업 시, 더 쉬운 처리·공유·편집을 위해 문서를 더 작은 별도의 파일로 분할해야 할 경우가 있습니다. 문서를 5 페이지 또는 10 페이지 또는 지정된 페이지 수마다 분할하면 긴 내용을 보다 효율적으로 관리할 수 있습니다。
페이지를 하나씩 수동으로 복사하여 붙여넣는 작업은 시간이 많이 소요되고 비효율적입니다。 본 튜토리얼에서는 Word 문서를 별도의 파일로 빠르고 쉽게 분할하는 방법을 소개합니다 매 n 페이지마다：
VBA 코드를 사용하여 Word 문서를 별도의 파일로 분할하기 매 n 페이지마다
강력한 기능을 사용하여 Word 문서를 별도의 파일로 분할하기 매 n 페이지마다
VBA 코드를 사용하여 Word 문서를 별도의 파일로 분할하기 매 n 페이지마다
매 n 페이지마다 기준으로 큰 문서를 별도의 파일로 분할하려면 다음 VBA 코드를 사용할 수 있습니다。 다음 단계를 따르세요：
- ALT + F11키를 누르면Microsoft Visual Basic for Applications창이 열립니다。
- 삽입>모듈을 클릭하고， 다음 코드를 빈 모듈에 복사하여 붙여넣습니다：
- 코드를 붙여넣은 후에도 여전히Microsoft Visual Basic for Applications창에서도구>참조를 클릭합니다。References - Project대화 상자에서Microsoft VBScript Regular Expressions 5.5옵션을사용 가능한 참조목록에서 선택합니다。 스크린샷 참조：
- 확인을 클릭한 후F5키를 눌러 코드를 실행합니다。
- 폴더 찾아보기대화 상자가 나타납니다。 분할 파일을 저장할 폴더를 선택하고확인을 클릭합니다。
- 분할 단위 페이지 수를 묻는 또 다른 프롬프트가 나타납니다。 원하는 페이지 수를 입력하고확인을 클릭합니다。
- 문서가 별도의 파일로 분할됩니다 매 n 페이지마다。 지정한 폴더로 이동하여 결과를 확인하세요。
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
강력한 기능을 사용하여 Word 문서를 별도의 파일로 분할하기 매 n 페이지마다
Kutools for Word에는 강력한분할기능이 있어 Heading 1, 페이지 나누기， 구역 나누기 또는 페이지 기준으로 큰 Word 문서를 여러 개의 별도 파일로 신속하게 분할할 수 있습니다。 이 기능은 번거로운 수동 작업을 간소화합니다。
- Kutools 플러스>분할.
- 나타나는 대화 상자에서 필요에 따라 다음 옵션을 설정합니다：
- 매 n 페이지마다를매 n 페이지마다메뉴에서 선택합니다。Split by
- 입력란에n값을 지정합니다。
- 저장 영역를 선택하세요。
- 분할된 문서의 접두사를 지정하세요。
- 설정을 완료한 후확인을 클릭합니다. 문서는 선택한 옵션(예: 7 페이지마다)에 따라 여러 파일로 분할됩니다。
Kutools for Word 의분할기능을 사용하면 큰 문서를 작고 관리하기 쉬운 파일로 나누는 작업이 간단하고 효율적으로 수행됩니다。
최고의 오피스 생산성 도구
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%% 향상시킵니다！
✨ Kutools for Office – 한 번의 설치로 다섯 가지 강력한 도구를 사용하세요！
포함 구성Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint
📦 하나의 스위트로 모든 5 도구 확보 | 🔗 Microsoft Office 와 원활하게 통합 | ⚡ 저장 시간하고 즉시 생산성 향상