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

Làm cách nào để lưu từng trang dưới dạng tệp pdf riêng biệt trong tài liệu Word?

Trong khi sử dụng tài liệu Microsoft Word, bạn có thể lưu từng trang dưới dạng các tệp pdf riêng biệt với chức năng Save As tích hợp sẵn. Tuy nhiên, nếu có hàng trăm trang cần được chia nhỏ và lưu dưới dạng tệp pdf riêng lẻ, bạn có thể làm thế nào? Bài viết này cung cấp phương pháp để bạn nhanh chóng giải quyết vấn đề này.

Lưu từng trang dưới dạng tệp pdf riêng biệt hàng loạt với mã VBA


Lưu từng trang dưới dạng tệp pdf riêng biệt hàng loạt với mã VBA

Đoạn mã VBA dưới đây giúp bạn nhanh chóng lưu từng trang trong tài liệu dưới dạng các tệp pdf riêng lẻ cùng một lúc. Hãy làm như sau.

1. Mở tài liệu, bạn sẽ lưu từng trang hoặc các trang cụ thể dưới dạng tệp pdf, sau đó nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > mô-đun, sao chép mã VBA bên dưới vào cửa sổ Mô-đun.

Mã VBA: Lưu từng trang dưới dạng tệp pdf riêng biệt cùng lúc trong tài liệu Word

Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20180906
    Dim I As Long
    Dim xStr As String
    Dim xPathStr As Variant
    Dim xDictoryStr As String
    Dim xFileDlg As FileDialog
    Dim xStartPage, xEndPage As Long
    Dim xStartPageStr, xEndPageStr As String
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDlg.Show <> -1 Then
        MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xPathStr = xFileDlg.SelectedItems(1)
    xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
    xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
    If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
        MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xStartPage = CInt(xStartPageStr)
    xEndPage = CInt(xEndPageStr)
    If xStartPage > xEndPage Then
        MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
        xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    End If
    For I = xStartPage To xEndPage
        ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
End Sub

3. Nhấn nút F5 phím để chạy mã.

4. bên trong Xem cửa sổ, chọn một thư mục để lưu các tệp pdf và nhấp vào OK cái nút. Xem ảnh chụp màn hình:

5. Trong lần đầu tiên Kutools cho Word hộp thoại, nhập số trang bắt đầu của tài liệu của bạn vào hộp văn bản và nhấp vào OK.

6. Trong giây Kutools cho Word hộp thoại, nhập số trang cuối cùng của tài liệu của bạn, sau đó nhấp vào OK. Xem ảnh chụp màn hình:

Chú thích: Nếu bạn chỉ muốn lưu một số trang liên tục trong tài liệu dưới dạng các tệp pdf riêng biệt như trang 4, 5 và 6, vui lòng nhập 4 và 6 riêng biệt vào hai hộp thoại trên.

Sau khi chạy mã, vui lòng chuyển đến thư mục được chỉ định mà bạn đã chọn ở bước 4, bạn có thể thấy tất cả các trang được chia nhỏ và lưu dưới dạng tệp pdf riêng lẻ như ảnh chụp màn hình bên dưới.


Tách và lưu từng trang của tài liệu dưới dạng tách tài liệu mới:

Mô hình Tách tài liệu tiện ích của Kutools cho Excel có thể giúp bạn dễ dàng chia nhỏ và lưu từng trang của tài liệu hiện tại thành tài liệu mới riêng biệt hàng loạt như hình minh họa bên dưới. Tải xuống và thử ngay bây giờ! (60-ngày đường mòn miễn phí)


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 (18)
Xếp hạng 5 trong 5 · xếp hạng 3
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 xuống các kutools để dùng thử - đã cài đặt và khi cố gắng làm gì đó, từ này sẽ đóng lại và công cụ không bao giờ 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
Good day,
Cảm ơn đã cho tôi biết lỗi và xin lỗi vì sự bất tiện này. Bạn có cung cấp phiên bản Word của mình không? Chúng tôi cần tìm ra vấn đề với nhiều thông tin hơn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Salve, ho Pracizzato i vostri preziosi suggerimenti e sono riuscito Smoothmente a generare i file singoli in pdf partendo da un file word di tema unione. Vorrei chiedere se è có thể đề cử tập tin singoli pdf, al posto del numro di pagina, con un nome cụ thểo di un campo contenuto nel tập tin di excel che ho useizzato per tema unione. Sarebbe il massimo. Grazie mille
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ó thể làm gì để lưu từng trang với một tham chiếu trong tài liệu chứ không phải theo tên trang?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xinh đẹp! Cảm ơn bạn, hướng dẫn của bạn rất dễ làm theo và phát hiện. Bạn đã tiết kiệm cho chúng tôi rất nhiều thời gian.
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ó thể làm gì để lưu từng trang với một tham chiếu trong tài liệu chứ không phải theo tên trang?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thanks! Nó đã làm việc cho tôi. Tôi có thể làm gì để lưu nó trong PDF hai mặt?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Que pháp ... aqui deu super certo!

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
Đọc những hướng dẫn này đã giúp tôi hoàn thành một dự án có thể mất 2 giờ trở lên, trong 20 phút. Cảm ơn bạn rất nhiều!
Xếp hạng 5 trong 5
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 Kyle Baldwin,
Đó là niềm vui của chúng tôi để giúp giải quyết vấn đề 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
Cảm ơn vì tập lệnh, nó cũng đã giúp tôi tiết kiệm rất nhiều công sức trong việc xuất các trang dưới dạng pdf!
Xếp hạng 5 trong 5
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chúc ngày tốt lành!
Есть ли возможность сохранить из ворд файла (используя слияние) в пдф файл - Ренить из ворд файла (используя слияние) в пдф файл - Реншения собственниковренниковренниковренникове
При этом учитываем, что PDF должен сохраняться так: в 1 файле должно быть несколько листов (1 квартира), по данному модулю страницы сохраняются в пдф, но раздельно
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Xin lỗi, tôi không hiểu ý bạn. Bạn có thể cần đính kèm ảnh chụp màn hình hoặc tệp mẫu để mô tả rõ hơn vấn đề bạn gặp phải.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn vì điều này, điều này thật tuyệt. Tôi tự hỏi liệu bạn có cách đặt tên khác cho các tệp pdf của tôi cho mỗi lần trích xuất không chỉ Page_1.pdf.

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
Chào samir,
Bạn muốn đặt tên những file pdf này như thế nào? Xin vui lòng cho tôi một ví dụ.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Giống như lưu từng tài liệu với một tên khác, không chỉ Page_1.pdf, v.v.
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 Camila,
Mã VBA sau đây có thể giúp bạn giải quyết vấn đề.
Chú thích: Bạn cần chỉ định một tên khác trong dòng này: xFileName = "AA; BB; CC; DD". Ở đây AA, BB và CC là tên của các tệp PDF.
Hãy thay đổi chúng để đáp ứng nhu cầu của bạn. Bạn có thể thêm nhiều tên hơn và phân tách chúng bằng dấu chấm phẩy. Phải đề cập rằng số lượng tên được chỉ định phải khớp với số lượng trang bạn đã xuất. Và các tệp PDF sẽ được đặt tên theo thứ tự tên được chỉ định trong mã.
Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20221223
    Dim xStr As String
    Dim xPathStr As Variant
    Dim xDictoryStr As String
    Dim xFileDlg As FileDialog
    Dim xStartPage, xEndPage As Long
    Dim xStartPageStr, xEndPageStr As String
    Dim xFileName As String
    Dim xNameArr() As String

    xFileName = "AA; BB; CC; DD"  'Specify a name for each page. The number of names specified must match the number of pages you exported.The PDF files will be named in order of the the specified names
    xNameArr = VBA.Split(xFileName, ";")
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDlg.Show <> -1 Then
        MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xPathStr = xFileDlg.SelectedItems(1)
    xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
    xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
    If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
        MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xStartPage = CInt(xStartPageStr)
    xEndPage = CInt(xEndPageStr)
    If xStartPage > xEndPage Then
        MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
        xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    End If
    For I = xStartPage To xEndPage
        ActiveDocument.ExportAsFixedFormat xPathStr & "\" & VBA.Trim(xNameArr(I - 1)) & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
    Erase xNameArr
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
10x :) điều này thực sự hữu ích!!!
Xếp hạng 5 trong 5
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