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 창에서 도구 > 참조를 클릭합니다. 나타나는 참조 - 프로젝트 대화 상자에서 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는 강력한 분할 기능을 제공하며, 이를 통해 제목 1, 페이지 나누기, 구역 나누기 또는 페이지를 기준으로 큰 Word 문서를 여러 개별 파일로 신속하게 분할할 수 있습니다. 이 기능은 번거로운 수작업 과정을 간소화합니다.
- Kutools 플러스 > 분할을 클릭합니다.
- 나타나는 대화 상자에서 필요한 옵션을 다음과 같이 구성합니다:
- 분할 기준 메뉴에서 매 n 페이지 옵션을 선택합니다.
- 입력 상자에 n 값을 지정합니다.
- 저장 위치를 선택합니다.
- 분할된 문서에 접두사를 지정합니다.
- 설정을 완료한 후 확인을 클릭합니다. 문서는 선택한 옵션(예: 매 7페이지)에 따라 여러 파일로 분할됩니다.
Kutools for Word의 분할 기능을 사용하면 대형 문서를 작고 관리하기 쉬운 파일로 나누는 것이 매우 간단하고 효율적입니다.
최고의 오피스 생산성 도구
Kutools for Word - Word 작업 경험을 100개 이상의 놀라운 기능으로 한 단계 업그레이드하세요!
🤖 Kutools AI Features: AI 도우미 / 실시간 어시스턴트 / 슈퍼 폴리시(형식 유지) / 슈퍼 번역(형식 유지) / AI 수정 / AI 교정...
📘 문서 마스터: 페이지 분할 / 문서 병합 / 선택 영역을 다양한 형식(PDF/TXT/DOC/HTML 등)으로 내보내기 / 일괄 PDF 변환...
✏ 콘텐츠 편집: 여러 파일에서 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정 / 표 행과 열 전환 / 표를 텍스트로 변환...
🧹 손쉬운 정리: 여분의 공백/구역 나누기/텍스트 상자/하이퍼링크 제거로 깔끔하게 청소하세요. 더 다양한 제거 도구는 제거 그룹에서 확인하세요...
➕ 창의적 삽입: 천 단위 구분기호 삽입 / 체크 박스 / 라디오 버튼 / QR 코드 / 바코드 / 여러 그림 삽입 / 더 많은 기능은 삽입 그룹에서 확인하세요...
🔍 정밀 선택: 특정 페이지/표/도형/제목 단락을 신속하게 선택하고, 더 많은 선택 기능으로 탐색을 향상해보세요...
⭐ 스타 기능: 원하는 위치로 빠르게 이동 / 반복 텍스트 자동 삽입 / 문서 창 전환 /11 가지 변환 도구 등...
🌍 40개 이상의 언어 지원: Kutools를 원하는 언어로 사용하세요 – 영어, 스페인어, 독일어, 프랑스어, 중국어 등40개 이상의 언어를 지원합니다!
