Làm cách nào để chia tài liệu Word thành các tệp riêng biệt sau mỗi 5 hoặc n trang?

Nếu bạn có một tài liệu Word lớn chứa hàng trăm trang và bây giờ, bạn muốn chia tài liệu này thành các tệp riêng biệt sau mỗi 10 hoặc n trang. Có cách nào nhanh chóng và dễ dàng để giải quyết công việc này mà không cần sao chép và dán từng trang một không?

Chia tài liệu Word thành các tệp riêng biệt sau mỗi 10 hoặc n trang bằng mã VBA

Chia tài liệu Word thành các tệp riêng biệt sau mỗi 10 hoặc n trang với một tính năng tuyệt vời

Chia tài liệu Word thành các tệp riêng biệt sau mỗi 10 hoặc n trang bằng mã VBA

Để chia một tài liệu lớn thành các tệp riêng biệt dựa trên mỗi 10 hoặc n trang, mã VBA sau có thể giúp bạn, vui lòng thực hiện như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Và sau đó, nhấp vào Chèn > Mô-đun, sao chép và dán mã bên dưới vào mô-đun trống đã mở:

Mã VBA: Chia tài liệu thành các tệp riêng biệt sau mỗi 10 hoặc n trang:

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. Sau khi dán mã trên, vẫn trong Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng nhấp vào CÔNG CỤ > dự ánvà trong cửa sổ bật ra Tài liệu tham khảo-Dự án hộp thoại, kiểm tra Microsoft VBScript Biểu thức chính quy 5.5 tùy chọn trong Tài liệu tham khảo có sẵn hộp danh sách, xem ảnh chụp màn hình:

4. Sau đó nhấn vào OK và sau đó nhấn F5 phím để chạy mã này và Chọn thư mục hộp thoại được hiển thị, vui lòng chọn một thư mục mà bạn muốn đặt các tệp phân tách vào, xem ảnh chụp màn hình:

5. Sau đó nhấn vào OK và một hộp nhắc khác hiện ra để nhắc bạn nhập số trang mà bạn muốn tách dựa vào đó, hãy xem ảnh chụp màn hình:

6. Và sau đó nhấp vào OK , tài liệu Word đang hoạt động đã được chia thành các tệp riêng biệt sau mỗi 10 trang, bạn có thể vào thư mục được chỉ định để xem kết quả:

Chia tài liệu Word thành các tệp riêng biệt sau mỗi 10 hoặc n trang với một tính năng tuyệt vời

Kutools cho Word bao gồm một tính năng mạnh mẽ- chẻ , với tiện ích này, bạn có thể nhanh chóng chia một tài liệu Word lớn thành nhiều tệp riêng biệt dựa trên Heading1, ngắt trang, ngắt phần và trang.

Sau khi cài đặt Kutools cho Word, hãy làm như sau:

1. Nhấp chuột Kutools Plus > chẻ, xem ảnh chụp màn hình:

2. Trong hộp thoại hiện ra, vui lòng đặt các thao tác sau khi bạn cần, xem ảnh chụp màn hình:

3. Sau khi hoàn tất cài đặt, vui lòng nhấp vào OKvà toàn bộ tài liệu sẽ được chia thành nhiều tệp dựa trên mỗi trang, xem ảnh chụp màn hình:

Nhấp để tải xuống Kutools cho Word và dùng thử miễn phí ngay bây giờ!

---

Công cụ năng suất Word được đề xuất

 

Kutools cho Word - Hơn 100 tính năng nâng cao cho Word, tiết kiệm 50% thời gian của bạn

• Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
• Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
• Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
• Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
• Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.

Tìm hiểu thêm Tải xuống Ngay Mua