Bỏ qua nội dung chính

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 văn phòng tốt nhất

Kutools cho Word - Nâng cao trải nghiệm sử dụng từ của bạn với Over 100 Các tính năng đáng chú ý!

Đi sâu vào các tính năng nổi bật bên dưới hoặc nhấp vào đây để khám phá toàn bộ sức mạnh của Kutools for Word.

📘 Làm chủ tài liệu: Chia trang  /  Hợp nhất tài liệu  /  Lựa chọn xuất ở nhiều định dạng khác nhau (PDF/TXT/DOC/XLSX)  /  Chuyển đổi hàng loạt sang PDF  /  Xuất trang dưới dạng hình ảnh  /  In nhiều tập tin cùng một lúc hữu ích. Cảm ơn !

Chỉnh sửa nội dung: Tìm và thay thế hàng loạt trên nhiều tệp   /  Thay đổi kích thước tất cả hình ảnh   /  Hoán đổi hàng và cột của bảng  /  Chuyển bảng thành văn bản hữu ích. Cảm ơn !

🧹 Dễ dàng làm sạchQuét đi Không gian bổ sung  /  Phần ngắt  /   Tất cả các tiêu đề  /  Hộp văn bản  /  Các siêu liên kết  /  Để biết thêm các công cụ xóa, hãy truy cập Nhóm Xóa của chúng tôi

Phụ trang quảng cáo: Chèn Ngàn dấu phân cách  /  Hộp kiểm tra  /  Nút radio  /  Mã QR  /  Mã vạch  /  Bảng đường chéo  /  Chú thích phương trình  /  Hình ảnh Caption  /  Bảng chú thích  /  Nhiều Hình Ảnh  /  Khám phá thêm trong Nhóm Chèn của chúng tôi

???? Lựa chọn chính xác: Xác định các trang cụ thể  /  bảng  /  hình dạng  /  đoạn văn tiêu đề  /  Điều hướng dễ dàng bằng cách sử dụng Nhóm Chọn của chúng tôi

Cải tiến sao: Điều hướng nhanh chóng đến bất kỳ vị trí nào  /  tự động chèn văn bản lặp đi lặp lại  /  chuyển đổi liền mạch giữa các cửa sổ tài liệu  /  11 công cụ chuyển đổi hữu ích. Cảm ơn !

Chuyển đổi các tác vụ Word của bạn với Kutools. 👉 Tải xuống dùng thử 30 ngày ngay 🚀.

 
Comments (24)
Rated 5 out of 5 · 3 ratings
This comment was minimized by the moderator on the site
Hi
what if I need to set specific name for each splited PDF.
This should be taken from WORD text - it is serial korespondece- all pages have same format
Can you advise?
This comment was minimized by the moderator on the site
Hi, how would you save each pdf page as a name that can be found from within each word page being exported?
This comment was minimized by the moderator on the site
Hi, how will change the code for mac os?
This comment was minimized by the moderator on the site
Is there a way to save per 2 pages?

Ex. save page 1/2 in Page_1.pdf
save page 3/4 in Page_2.pdf

Thanks!
This comment was minimized by the moderator on the site
im wondering the same thing! please help!
This comment was minimized by the moderator on the site
Wondering the same
This comment was minimized by the moderator on the site
10x :) this was realy helpful!!!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Thanks for this, this is great. i was wondering if you have a way of naming my pdf files differently per each extract not only Page_1.pdf.

Thanks
This comment was minimized by the moderator on the site
Hi samir,
How would you like to name these pdf files? Please give me an example.
This comment was minimized by the moderator on the site
Like saving each document with a different name, not just Page_1.pdf and so on.
This comment was minimized by the moderator on the site
Hi Camila,
The following VBA code can help you solve the problem.
Note: You need to specify a different name in this line: xFileName = "AA; BB; CC; DD". Here AA, BB and CC are the names for the PDF files.
Please change them to meet your needs. You can add more names and separate them by semicolon. To mention that the number of names specified must match the number of pages you expored. And the PDF files will be named in order of the specified names in the code.
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
This comment was minimized by the moderator on the site
Добрый день!
Есть ли возможность сохранить из ворд файла(используя слияние) в пдф файл - Решения собственников на общее собрание.
При этом учитываем, что PDF должен сохраняться так: в 1 файле должно быть несколько листов (1 квартира), по данному модулю страницы сохраняются в пдф, но раздельно
This comment was minimized by the moderator on the site
Hi,
Sorry I don't understand what you mean. You may need to attach a screenshot or a sample file to describe the problem you encountered more clearly.
This comment was minimized by the moderator on the site
Thanks for the script, it has also saved me a lot of work in exporting pages as pdf!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Reading these instructions has helped me to complete a project that would've taken 2 or more hours, in 20 minutes. Thank you so much!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi Kyle Baldwin,
It would be our pleasure to help solve your problem.
This comment was minimized by the moderator on the site
Que legal... aqui deu super certo!

Obrigada
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations