Note: The other languages of the website are Google-translated. Back to English

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

수백 페이지가 포함 된 큰 Word 문서가있는 경우이 문서를 10 페이지 또는 n 페이지마다 별도의 파일로 분할하려고합니다. 페이지를 하나씩 복사하여 붙여 넣지 않고이 작업을 빠르고 쉽게 해결할 수있는 방법이 있습니까?

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

놀라운 기능으로 Word 문서를 10 페이지 또는 n 페이지마다 별도의 파일로 분할


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

큰 문서를 10 페이지 또는 n 페이지마다 별도의 파일로 분할하려면 다음 VBA 코드가 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 그런 다음 끼워 넣다 > 모듈, 아래 코드를 복사하여 열린 빈 모듈에 붙여 넣습니다.

VBA 코드 : 10 페이지 또는 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 page count you want to 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 the page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", 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

3. 위의 코드를 붙여 넣은 후에도 여전히 응용 프로그램 용 Microsoft Visual Basic 창을 클릭하십시오 도구 > 참조, 그리고 튀어 나온 참조-프로젝트 대화 상자, 확인 Microsoft VBScript 정규식 5.5 에서 옵션 사용 가능한 참조 목록 상자, 스크린 샷 참조 :

4. 그런 다음 OK 버튼을 누른 다음 F5 이 코드를 실행하는 키와 폴더 찾아보기 대화 상자가 표시되면 분할 파일을 넣을 폴더를 선택하십시오. 스크린 샷을 참조하십시오.

5. 그런 다음 OK 버튼을 클릭하면 분할 할 페이지 수를 입력하라는 또 다른 프롬프트 상자가 나타납니다. 스크린 샷을 참조하십시오.

6. 그런 다음 OK 버튼을 클릭하면 활성 Word 문서가 10 페이지마다 별도의 파일로 분할되었습니다. 지정된 폴더로 이동하여 결과를 볼 수 있습니다.


놀라운 기능으로 Word 문서를 10 페이지 또는 n 페이지마다 별도의 파일로 분할

Word 용 Kutools 강력한 기능이 포함되어 있습니다. 스플릿 이 유틸리티를 사용하면 큰 Word 문서를 Heading1, 페이지 나누기, 섹션 나누기 및 페이지에 따라 여러 개의 개별 파일로 빠르게 분할 할 수 있습니다.

팁 :이것을 적용하려면 스플릿 먼저 기능을 다운로드해야합니다. Word 용 Kutools을 클릭 한 다음 기능을 빠르고 쉽게 적용하십시오.

설치 후 Word 용 Kutools, 다음과 같이하십시오.

1. 딸깍 하는 소리 쿠툴즈 플러스 > 스플릿, 스크린 샷 참조 :

2. 튀어 나온 대화 상자에서 필요에 따라 다음 작업을 설정하십시오. 스크린 샷을 참조하십시오.

3. 설정을 마친 후 OK, 전체 문서가 각 페이지를 기반으로 여러 파일로 분할됩니다. 스크린 샷을 참조하십시오.

지금 Word 및 무료 평가판 용 Kutools를 다운로드하려면 클릭하십시오!


추천 단어 생산 도구

 

Word 용 Kutools-Word 용 100 개 이상의 고급 기능으로 50 % 시간 절약

  • 복잡하고 반복되는 작업은 몇 초 만에 한 번 처리 할 수 ​​있습니다.
  • 여러 폴더의 이미지를 한 번에 Word 문서에 삽입합니다.
  • 폴더에있는 여러 Word 파일을 원하는 순서대로 하나로 병합하고 결합합니다.
  • 제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 분할합니다.
  • Doc과 Docx, Docx와 PDF, 일반적인 변환 및 선택을위한 도구 모음 등의 파일 변환 ...
코멘트 (8)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 166 페이지의 워드 파일을 분할하려고 시도했으며 각각 166 페이지가 있는 166 파일을 제공합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VBA 스크립트: 작업하지 않은 10 또는 n 페이지마다 문서를 별도의 파일로 분할
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 세르게이,
위의 코드는 내 Word 문서에서 잘 작동합니다. 어떤 Word 버전을 사용합니까?
그리고 귀하의 작업에서 어떤 단계가 잘못되었습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VBscript 코드로 인해 Word가 충돌했습니다. 32Mb Word 파일을 여러 페이지로 분할하려고 했지만 Word에서 VBscript를 통해 처리할 수 없는 것 같습니다.
어쨌든 고마워.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, Studia 님.
VBA 코드는 큰 문서가 있을 때 충돌할 수 있고 안정적이지 않으므로 Word용 Kutools 도구를 사용하는 것이 좋습니다. 이 도구는 업데이트되었으며 이 작업을 해결하기 위해 지원합니다. 다운로드하고 30일 무료 평가판을 사용할 수 있습니다.
시도하십시오, 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
저에게 VBA는 원본의 복사본인 단일 문서를 생성합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드는 사용자 정의 유형이 정의되지 않았음을 보여주는 컴파일 오류를 제공합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 일. 나는 그것을 1 페이지 1 단어 문서로 분할하는 데 사용했습니다. 각 문서(분할 후)는 두 번째 페이지가 항상 비어 있지만 총 2페이지가 있다는 점을 제외하고는 성공적이었습니다. 
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0  등장 인물
추천 위치