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

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.

Lời khuyên:Để áp dụng điều này chẻ , trước tiên, bạn nên tải xuống Kutools cho Word, và sau đó áp dụng tính năng một cách nhanh chóng và dễ dàng.

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.
Nhận xét (9)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã cố gắng chia một tệp word gồm 166 trang và nó cho 166 tệp mỗi tệp có 166 trang?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
VBA Script: Chia tài liệu thành các tệp riêng biệt sau mỗi 10 hoặc n trang không hoạt động
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Sergey,
Đoạn mã trên hoạt động tốt trong tài liệu Word của tôi, bạn sử dụng phiên bản Word nào?
Và bước nào đã sai trong thao tác của bạn?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã VBscript đã làm cho Word bị sập. Tôi đã cố gắng chia một tệp Word 32Mb thành nhiều trang nhưng có vẻ như Word không thể xử lý nó thông qua VBscript.
Dẫu sao cũng xin cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Studia,
Mã VBA có thể bị lỗi khi có một tài liệu lớn, nó không ổn định, vì vậy tôi khuyên bạn nên sử dụng công cụ Kutools cho Word của chúng tôi, nó đã cập nhật và hỗ trợ giải quyết công việc này, bạn có thể tải xuống và dùng thử miễn phí 30 ngày.
Hãy cố gắng, cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đối với tôi, VBA tạo ra một tài liệu duy nhất là bản sao của bản gốc và thế là xong.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
mã này cung cấp cho lỗi biên dịch hiển thị loại xác định người dùng không được xác định
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
những điều tốt. Tôi đã sử dụng nó để tách với tài liệu 1 trang 1 từ, nó đã thành công ngoại trừ mỗi tài liệu (sau khi tách), nó có tổng cộng 2 trang mặc dù trang thứ 2 luôn trống. 
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có phần mềm nào giúp người già không biết vi tính đủ để sử dụng các tính năng mạnh mẽ của Word trên máy tính công cộng không?

Tài liệu của mẹ tôi nằm trong ổ USB.
Tôi đã quen với các thư mục cùng chủ đề cho
1) phiên bản
2) chương mỗi tài liệu
3) đồng bộ với OneDrive
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL