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

จะบันทึกแต่ละหน้าเป็นไฟล์ pdf แยกกันในเอกสาร Word ได้อย่างไร?

ในขณะที่ใช้เอกสาร Microsoft Word คุณสามารถบันทึกแต่ละหน้าเป็นไฟล์ PDF แยกกันทีละไฟล์ด้วยฟังก์ชัน Save As ในตัว อย่างไรก็ตามหากมีหลายร้อยเพจที่ต้องแยกและบันทึกเป็นไฟล์ pdf แต่ละไฟล์คุณจะทำอย่างไร? บทความนี้มีวิธีการเพื่อให้คุณแก้ไขปัญหานี้ได้อย่างรวดเร็ว

บันทึกแต่ละหน้าเป็นไฟล์ pdf แยกกันเป็นกลุ่มด้วยรหัส VBA


บันทึกแต่ละหน้าเป็นไฟล์ pdf แยกกันเป็นกลุ่มด้วยรหัส VBA

รหัส VBA ด้านล่างช่วยให้คุณบันทึกแต่ละหน้าในเอกสารเป็นไฟล์ pdf แต่ละไฟล์ได้อย่างรวดเร็วในเวลาเดียวกัน กรุณาดำเนินการดังนี้

1. เปิดเอกสารที่คุณจะบันทึกแต่ละหน้าหรือบางหน้าเป็นไฟล์ pdf จากนั้นกดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล, คัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: บันทึกแต่ละหน้าเป็นไฟล์ pdf แยกกันในเวลาเดียวกันในเอกสาร 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 กด F5 กุญแจสำคัญในการเรียกใช้รหัส

4 ใน หมวดหมู่สินค้า หน้าต่างเลือกโฟลเดอร์ที่จะบันทึกไฟล์ pdf แล้วคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

5. ในครั้งแรก Kutools สำหรับ Word กล่องโต้ตอบป้อนหมายเลขหน้าเริ่มต้นของเอกสารของคุณลงในกล่องข้อความแล้วคลิก OK.

6. ในวินาทีที่ Kutools สำหรับ Word กล่องโต้ตอบป้อนหมายเลขหน้าสุดท้ายของเอกสารของคุณจากนั้นคลิก ตกลง ดูภาพหน้าจอ:

หมายเหตุ: หากคุณต้องการบันทึกหน้าต่อเนื่องหลาย ๆ หน้าในเอกสารเป็นไฟล์ pdf แยกกันเช่นหน้า 4, 5 และ 6 โปรดป้อน 4 และ 6 แยกกันในกล่องโต้ตอบสองกล่องด้านบน

หลังจากเรียกใช้โค้ดแล้วโปรดไปที่โฟลเดอร์ที่คุณเลือกไว้ในขั้นตอนที่ 4 คุณจะเห็นหน้าทั้งหมดถูกแยกและบันทึกเป็นไฟล์ pdf แต่ละไฟล์ตามภาพด้านล่างที่แสดง


แยกและบันทึกแต่ละหน้าของเอกสารเป็นเอกสารใหม่แยกกัน:

พื้นที่ แยกเอกสาร ประโยชน์ของ Kutools สำหรับ Excel สามารถช่วยให้คุณแยกและบันทึกแต่ละหน้าของเอกสารปัจจุบันเป็นเอกสารใหม่แยกเป็นกลุ่มได้อย่างง่ายดายดังภาพหน้าจอด้านล่างที่แสดง ดาวน์โหลดและทดลองใช้เลย! (เส้นทางฟรี 60 วัน)


เครื่องมือเพิ่มประสิทธิภาพคำแนะนำ

 

Kutools For Word - คุณสมบัติขั้นสูงมากกว่า 100 รายการสำหรับ Word ประหยัดเวลา 50%

  • การดำเนินการที่ซับซ้อนและซ้ำ ๆ สามารถดำเนินการครั้งเดียวในไม่กี่วินาที
  • แทรกภาพหลาย ๆ โฟลเดอร์ลงในเอกสาร Word พร้อมกัน
  • ผสานและรวมไฟล์ Word หลาย ๆ ไฟล์ในโฟลเดอร์เข้าด้วยกันตามลำดับที่คุณต้องการ
  • แยกเอกสารปัจจุบันออกเป็นเอกสารแยกตามหัวข้อตัวแบ่งส่วนหรือเกณฑ์อื่น ๆ
  • แปลงไฟล์ระหว่าง Doc และ Docx, Docx และ PDF ชุดเครื่องมือสำหรับการแปลงและการเลือกทั่วไปและอื่น ๆ ...
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (13)
ได้รับคะแนน 5 จาก 5 · การจัดอันดับ 2
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ลง kutools สำหรับการทดลองใช้ - ติดตั้งแล้วและเมื่อพยายามทำบางสิ่งคำนั้นจะปิดและเครื่องมือก็ไม่เคยทำงาน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วันดี,
ขอบคุณที่แจ้งให้เราทราบข้อผิดพลาด และขออภัยในความไม่สะดวก คุณจะให้เวอร์ชัน Word ของคุณหรือไม่ เราจำเป็นต้องค้นหาปัญหาด้วยข้อมูลเพิ่มเติม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Salve, ho utilizzato i vostri preziosi suggerimenti e sono riuscito facilmente a generare i file singoli in pdf partendo da un ไฟล์ word di stampa unione. Vorrei chiedere se è possibile nominare i singoli file pdf, al posto del numero di pagina, con un nome specifico di un campo contenuto nel file di excel che ho utilizzato per stampa unione. ไฟล์แนบ ซาเรบเบ อิล มัสซิโม Grazie mille
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะทำอย่างไรเพื่อบันทึกแต่ละหน้าด้วยการอ้างอิงในเอกสาร ไม่ใช่ตามชื่อหน้า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวย! ขอบคุณ คำแนะนำของคุณง่ายต่อการติดตามและมองเห็น คุณช่วยเราประหยัดเวลาได้มาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะทำอย่างไรเพื่อบันทึกแต่ละหน้าด้วยการอ้างอิงในเอกสาร ไม่ใช่ตามชื่อหน้า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ! มันได้ผลสำหรับฉัน ฉันจะทำอย่างไรเพื่อบันทึกเป็น PDF สองด้าน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Que ถูกกฎหมาย... aqui deu super certo!

ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
การอ่านคำแนะนำเหล่านี้ช่วยให้ฉันทำโปรเจ็กต์ที่จะใช้เวลา 2 ชั่วโมงหรือมากกว่านั้นให้เสร็จภายใน 20 นาที ขอบคุณมาก!
ได้รับคะแนน 5 จาก 5
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ไคล์ บอลด์วิน
เรายินดีที่จะช่วยแก้ปัญหาของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับสคริปต์ มันช่วยฉันได้มากในการส่งออกหน้าเป็น pdf!
ได้รับคะแนน 5 จาก 5
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วันที่ดี!
Есть возможность сохранить из ворд файла(используя слияние) в пдф файсл - Решения собственнико. Есть ли возможность сохранить из ворд файла(используя слияние) в пдф файсл - Решения собственнико.
При этом учитываем, что PDF должен сохраняться так: в 1 файле должно быть несколько листов (1 квартира), по данному модулю страницы сохраняются в пдф, но раздельно
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
ขอโทษ ฉันไม่เข้าใจสิ่งที่คุณหมายถึง คุณอาจต้องแนบภาพหน้าจอหรือไฟล์ตัวอย่างเพื่ออธิบายปัญหาที่คุณพบให้ชัดเจนยิ่งขึ้น
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ