Note: The other languages of the website are Google-translated. Back to English
Đăng nhập Đăng ký

Làm cách nào để chia nhỏ tài liệu Word và lưu dưới dạng tệp PDF riêng biệt?

Trong Word, bạn có thể lưu toàn bộ tài liệu vào một tệp PDF, nhưng bạn đã bao giờ thử chia nhỏ tài liệu và sau đó lưu các trang dưới dạng tệp PDF riêng biệt chưa? Trong bài viết này, tôi sẽ giới thiệu các phương pháp giải quyết công việc này một cách nhanh chóng.

Tách tài liệu Word và lưu dưới dạng tệp PDF riêng biệt với VBA

Tách tài liệu Word thành các tệp riêng biệt theo trang / tiêu đề1 / ngắt sau đó lưu dưới dạng PDF

Tách tài liệu Word và lưu dưới dạng tệp PDF riêng biệt với VBA

Ở đây mã VBA có thể giúp bạn chia trực tiếp tài liệu Word theo các trang sau đó lưu thành các tệp PDF riêng biệt.

1. nhấn Alt + F11 phím để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. nhấp chuột Chèn > Mô-đun, sao chép và dán mã bên dưới vào Mô-đun cửa sổ.

VBA: Lưu Word dưới dạng PDF riêng biệt

Sub SaveAsSeparatePDFs()
'UpdatebyExtendoffice20181120
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    On Error GoTo lbl
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Start Page", "KuTools for Word"))
    xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
            ActiveDocument.ExportAsFixedFormat OutputFileName:= _
                xFolder & "\Page_" & I & ".pdf", ExportFormat:=wdExportFormatPDF, _
                OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
                wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, _
                IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
                wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
                BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
    Exit Sub
lbl:
    MsgBox "Enter right page number", vbInformation, "KuTools for Word"
End Sub

3. nhấn F5 , trong hộp thoại Duyệt qua, hãy chọn một thư mục để đặt các tệp PDF.
doc tách lưu pdf 1

4. nhấp chuột OK, sau đó nhập số trang bạn muốn phân chia bắt đầu và kết thúc.

doc tách lưu pdf 2 doc tách lưu pdf 3

5. nhấp chuột OK. Bây giờ các trang đã được lưu thành các tệp PDF riêng biệt.
doc tách lưu pdf 4

Tách tài liệu Word thành các tệp riêng biệt theo trang / tiêu đề1 / ngắt sau đó lưu dưới dạng PDF

Nếu bạn không quen với mã VBA, bạn có thể thử sử dụng một công cụ bổ trợ - Kutools cho WordCủa nó, chẻ tính năng này có thể giúp bạn chia tài liệu Word thành các trang dựa trên ngắt trang, số trang, tiêu đề 1, ngắt phần, mọi trang thứ n và số trang tùy chỉnh mà bạn chỉ định, sau đó áp dụng Công cụ chuyển đổi định dạng tài liệu để chuyển đổi hàng loạt các tài liệu Word đã tách thành PDF.

Kutools cho Word, với hơn
100
 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. 
Chuyển đến Tải xuống (60 ngày dùng thử miễn phí)

Sau khi cài đặt Kutools cho Word, vui lòng làm như dưới đây:（Tải xuống miễn phí Kutools cho Word ngay!)

1. Bật tài liệu Word mà bạn muốn chuyển đổi để tách, bấm Kutools Plus > chẻ.
doc lưu dưới dạng pdf 2

2. bên trong Tách tài liệu , hãy chọn quy tắc phân chia khi bạn cần trong phần Chia theo. Sau đó chỉ định vị trí lưu và tiền tố tệp tài liệu tách. Nhấp chuột Ok.

Trong tạp chí Chia theo , nó cung cấp 6 kiểu chia nhỏ cho bạn. Để biết thêm chi tiết về mọi loại tách, vui lòng truy cập giới thiệu tính năng.

Bây giờ các tài liệu tách đã được lưu ở vị trí được chỉ định.

3. Sau khi chia nhỏ tài liệu, hãy nhấp vào Kutools Plus > Doc / Docx.

4. bên trong Công cụ chuyển đổi định dạng tài liệu hộp thoại, chọn Chuyển đổi Docx sang PDF hình thức Công cụ chuyển đổi định dạng danh sách thả xuống, nhấp vào dấu cộng để thêm tệp hoặc thư mục chứa tài liệu bạn muốn chuyển đổi sang PDF, sau đó chỉ định các cài đặt khác khi bạn cần (theo mặc định, nó lưu tệp PDF trong thư mục nguồn, bạn có thể thay đổi nó ). Nhấp chuột Ok.

Bây giờ các tài liệu Word đã được chuyển đổi sang tệp PDF.

Duyệt theo tab & chỉnh sửa nhiều tài liệu Word / sổ làm việc Excel dưới dạng Firefox, Chrome, Internet Explore 10!

Có thể bạn đã quen với việc xem nhiều trang web trong Firefox / Chrome / IE và chuyển đổi giữa chúng bằng cách nhấp vào các tab tương ứng một cách dễ dàng. Ở đây, Tab Office hỗ trợ xử lý tương tự, cho phép bạn duyệt nhiều tài liệu Word hoặc sổ làm việc Excel trong một cửa sổ Word hoặc cửa sổ Excel và dễ dàng chuyển đổi giữa chúng bằng cách nhấp vào tab của chúng.
Nhấp để dùng thử Office Tab miễn phí!
Duyệt nhiều tài liệu từ trong một cửa sổ dưới dạng Firefox

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

 

Nhận xét (25)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nico
Nico
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã VBA không hoạt động. Tiếp tục nói "nhập số trang bên phải. Tài liệu Word dài 3 trang. Tôi đã thêm vào 1 và 3 trong hộp thư và gặp lỗi.
đáp lại
0
0
Nắng
Nắng     Nico
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, Nico, tôi đã thử lại mã, nó hoạt động trong phiên bản window 10 64 2016 của tôi, bạn sử dụng phiên bản nào?
đáp lại
Report
0
0
cây tía tô
cây tía tô     Nico
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
nicou nên nhập các trang mà bạn muốn chuyển đổi ... tức là 1 (trong màn hình nhắc đầu tiên) sau đó trong màn hình nhắc nhở thứ hai. đó là những gì tôi đã làm và mã đã hoạt động tuyệt vời. Cảm ơn Sunny về sự chia sẻ này
đáp lại
0
0
jgall7804
jgall7804
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
có cách nào để đặt tên tệp từ văn bản trong tài liệu thay vì trang 1, trang 2, v.v. không?
đáp lại
Report
0
0
Nắng
Nắng     jgall7804
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin lỗi, tôi không biết.
đáp lại
Report
0
0
Ben
Ben     Nắng
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nếu ai đó có thể giúp tôi điều này ... Tôi nghĩ tôi cần phải làm điều tương tự ... SỬ DỤNG TÌNH HUỐNG: Tôi có một tài liệu word với 100 trang. Mỗi trang là kết quả của quá trình kết hợp thư, vì vậy tất cả các trang đều giống hệt nhau ngoại trừ một vài từ. Đầu mỗi trang ghi, "Kính gửi " ở đâu được thay thế bằng một tên khác trên mỗi trang. ví dụ: - Becky thân mến- Nico thân mến- Sunny thân mến- jgall7804 thân mến
Hiện tại, mã này xuất ra các tệp dưới dạng:
- Trang_1.pdf- Trang_2.pdf- Trang_3.pdf
Tôi biết tôi có thể thay đổi dòng 16 trong đó dòng chữ "\ Page_" thành "\ Foo _" ... vì vậy đầu ra sẽ là
- Foo_1.pdf- Foo_2.pdf
Nhưng tôi đang hỏi (và jgall7804, và Ines, và những người khác) ... nếu ai đó có kỹ năng VBA tốt hơn / thông minh hơn có thể viết mã sẽ xuất ra dưới dạng: - becky.pdf- nico.pdf- sunnny.pdf- jgall7804. pdf
nghĩa là, tìm từ thứ 2 (hoặc từ thứ nhất, hoặc từ thứ 1) trên mỗi trang và sử dụng từ đó làm tên của tệp.
Bất cứ ai có bất kỳ suy nghĩ?
đáp lại
0
0
Becky
Becky     jgall7804
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có thể thực hiện việc này bằng cách sử dụng chức năng REN nếu bạn mở CMD trong thư mục có lưu các tài liệu
đáp lại
0
0
hoa cẩm chướng13
hoa cẩm chướng13
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
OMG, bạn đã cứu mạng tôi. Tôi luôn cần phải hợp nhất các chữ cái trong word và sau đó lưu từng chữ cái riêng lẻ trong PDF. 40 lá thư cuối cùng của tôi quá nhanh !!! :)
đáp lại
Report
0
0
mfadlihr
mfadlihr
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thay vì lưu từng trang dưới dạng tài liệu riêng biệt, tôi làm cách nào để lấy mã lưu mỗi 2 hoặc 3 trang dưới dạng tài liệu riêng biệt.
đáp lại
Report
0
0
Nắng
Nắng     mfadlihr
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Không thể tìm thấy mã để xử lý công việc của bạn bây giờ. Dùng thử Kutools cho Word, miễn phí sử dụng trong 60 ngày
đáp lại
Report
0
0
DA
DA
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vui lòng giải thích: (Đổi tên tài liệu) Bạn có thể thực hiện việc này bằng chức năng REN nếu bạn mở CMD trong thư mục có lưu các tài liệu - và cả 2 trang tài liệu thành một pdf
đáp lại
0
0
Xì
Xì
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ể tách tài liệu, cần hướng dẫn nếu tôi muốn lưu tài liệu với tên riêng
đáp lại
0
0
Ines
Ines
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cũng có khả năng lưu các tập tin không như Trang 1 hoặc Trang 2, nhưng với tên dựa trên nội dung của trang?
đáp lại
0
0
Sean
Sean
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, Khi tôi nhấp vào OK, màn hình biến mất nhưng không có gì được lưu? Có cài đặt nào khác mà tôi cần bật ở đâu đó không?
Ngoài ra, lưu vào thư mục cục bộ One Drive của tôi, nếu đó có thể là sự cố? Cảm ơn
đáp lại
0
0
HS
HS
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mẹo rất hữu ích và dễ sử dụng. Tiết kiệm cho tôi rất nhiều thời gian. Cảm ơn bạn rất nhiều.
đáp lại
0
0
RĂNG
RĂNG
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bonjour,
Dự tính có thể thay đổi le module pour fractionner le fichier word en PDF toutes les 24 trang?

Merci de Votre trợ
đáp lại
0
0
Nắng
Nắng     RĂ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, TEILLET, bạn có thể áp dụng Kutools cho tính năng Tách tài liệu của Word và chọn mỗi n trang trong phần Tách theo, sau đó nhập 24 vào hộp văn bản Mỗi n trang, chỉ định cài đặt khác, sau đó nhấp vào Ok, cứ 24 trang sẽ được tách thành một tài liệu duy nhất. Sau đó áp dụng Bạn nên thử tính năng Doc / Docx của Kutools cho Excel, và chọn Convert Docx to PDF từ phần Format Convert và chọn một vị trí để lưu, bấm Ok, bây giờ mỗi 24 trang đã được lưu dưới dạng PDF.
Chúng tôi đã nâng cấp các tính năng trong Kutools cho Word, nhưng bài viết này không cập nhật nên ảnh chụp màn hình đã cũ. Chúng tôi sẽ cập nhật nội dung sớm nhất, bạn có thể làm theo các bước để đạt được.


Kutools cho Word miễn phí trong 60 ngày, bạn có thể tìm thấy công cụ hữu ích hơn. Tải xuống miễn phí
đáp lại
Report
0
0
SAROJ
SAROJ
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,

Mã này ghép thư thành từng tệp PDF. Nhưng tôi cần phải tách 2 trang đầu tiên thành một tài liệu. Có nghĩa là nếu có 12 trang, tôi cần 6 tài liệu PDF. Một bộ gồm 2 thành một tệp PDF. Ngay bây giờ mã này chia nó thành 12 tệp riêng lẻ. Xin vui lòng cho biết những gì tôi nên thay đổi trong mã.
đáp lại
0
0
Nắng
Nắng     SAROJ
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, SAROJ, tôi khuyên bạn nên sử dụng các công cụ trong Kutools cho Word, các bước cũng giống như câu trả lời của tôi cho RĂNG
đáp lại
Report
0
0
thu nhỏ
thu nhỏ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Kérnék részlete leírást arról, hogy hogyan tudom elnevezni a létrehozott dokumentumokat egy lépésben, akár VBA-val.
Köszönöm.
đáp lại
0
0
Nắng
Nắ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, hãy thử vba này
Sub SaveAsSeparatePDFs()
'UpdatebyExtendoffice20221122
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    Dim xName As String
    On Error GoTo lbl
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Start Page", "KuTools for Word"))
    xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
            xName = InputBox("Page: " & I, "Enter the name for this page")
            ActiveDocument.ExportAsFixedFormat OutputFileName:= _
                xFolder & "\" & xName & ".pdf", ExportFormat:=wdExportFormatPDF, _
                OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
                wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, _
                IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
                wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
                BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
    Exit Sub
lbl:
    MsgBox "Enter right page number", vbInformation, "KuTools for Word"
End Sub

Bạn sẽ đổi tên từng tệp pdf trong hộp thoại bật lên trong khi áp dụng vba.
đáp lại
Report
0
0
Alice
Alice     Nắng
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 Sunny!

bạn có biết mã cho tên tệp được lấy từ dòng thứ ba của tệp không? hay một địa điểm cụ thể?

cảm ơn bạn!
đáp lại
0
0
Nắng
Nắng     Alice
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, hãy thử vba này
Sub SaveAsSeparatePDFs()

'UpdatebyExtendoffice20221221
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    Dim xStrName As String
    Dim xPath As String
'    On Error Resume Next

    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Start Page", "KuTools for Word"))
    xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
                Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=I
                Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Name:=3 - 1
                Selection.Extend
                Selection.EndKey Unit:=wdLine
                Selection.EscapeKey
   
                xStrName = Selection.Range
                xStrName = Replace(xStrName, " ", "")
                xStrName = Replace(xStrName, vbLf, "")
                xStrName = Replace(xStrName, Chr(10), "")
                xStrName = Replace(xStrName, Chr(13), "")
                xStrName = Replace(xStrName, "\", "")
                xStrName = Replace(xStrName, "/", "")
                xStrName = Replace(xStrName, ":", "")
                xStrName = Replace(xStrName, "*", "")
                xStrName = Replace(xStrName, "?", "")
                xStrName = Replace(xStrName, "<", "")
                xStrName = Replace(xStrName, ">", "")
                xStrName = Replace(xStrName, "|", "")
                xStrName = Replace(xStrName, """", "")
                If xStrName = "" Then
                    xStrName = I
                End If
                xPath = xFolder & "\" & xStrName & ".pdf"
                ActiveDocument.ExportAsFixedFormat OutputFileName:=xPath, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
End Sub

Nếu có dòng thứ ba trống, tệp pdf sẽ được đặt tên bằng số.
đáp lại
Report
0
0
thu nhỏ
thu nhỏ     Nắng
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Kedves Napos!

Ez a kód már majdnem tökéletes, a fájl elnevezéséből még ki kellene valahogyan szedni a Az eszközökért felelős személy neve részt, és akkor csak a dolgozó neve maradna.
Köszönöm szépen!

thu nhỏ
đáp lại
0
0
thu nhỏ
thu nhỏ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Kedves Napos!

Mostmár majdnem tökéletes a kód ahhoz, amit szeretnék. A 9. sorból szeretném a fájl nevét venni, de csak a 20. karaktertől.

Ez megoldható lenne?

Nagyon szépen köszönöm.

thu nhỏ
đáp lại
0
0
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Khách
Đăng với tư cách khách
Đăng nhập
×
Đánh giá bài viết này:
Xóa và làm lại
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