จะบันทึกแต่ละหน้าเป็นไฟล์ 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 สำหรับ Word - ยกระดับประสบการณ์คำศัพท์ของคุณด้วย Over 100 คุณสมบัติเด่น!

🤖 Kutools ผู้ช่วย AI: แปลงโฉมงานเขียนของคุณด้วย AI - สร้างเนื้อหา  /  เขียนข้อความใหม่  /  สรุปเอกสาร  /  สอบถามข้อมูล ขึ้นอยู่กับเอกสารทั้งหมดนี้ภายใน Word

📘 ความเชี่ยวชาญด้านเอกสาร: แยกหน้า  /  ผสานเอกสาร  /  ส่งออกตัวเลือกในรูปแบบต่างๆ (PDF/TXT/DOC/HTML...)  /  แบทช์แปลงเป็น PDF  /  ส่งออกเพจเป็นรูปภาพ  /  พิมพ์หลายไฟล์พร้อมกัน...

✏ การแก้ไขเนื้อหา: ค้นหาแบทช์และแทนที่ ข้ามหลายไฟล์  /  ปรับขนาดรูปภาพทั้งหมด  /  ย้ายแถวและคอลัมน์ของตาราง  /  แปลงตารางเป็นข้อความ...

🧹 ทำความสะอาดได้อย่างง่ายดาย: หลบไป พื้นที่พิเศษ  /  แบ่งส่วน  /  ส่วนหัวทั้งหมด  /  กล่องข้อความ  /  เชื่อมโยงหลายมิติ  / หากต้องการดูเครื่องมือถอดเพิ่มเติม โปรดไปที่ของเรา ลบกลุ่ม...

➕ ส่วนแทรกโฆษณา: แทรก ตัวคั่นหลักพัน  /  กล่องกาเครื่องหมาย  /  ปุ่มวิทยุ  /  คิวอาร์โค้ด  /  บาร์โค้ด  /  ตารางเส้นทแยงมุม  /  คำอธิบายสมการ  /  คำบรรยายภาพ  /  คำบรรยายตาราง  /  รูปภาพหลายภาพ  / ค้นพบเพิ่มเติมใน แทรกกลุ่ม...

🔍 การเลือกที่แม่นยำ: ระบุ หน้าที่เฉพาะเจาะจง  /  ตาราง  /  รูปร่าง  /  หัวเรื่องย่อหน้า  / เสริมการนำทางด้วย ข้อมูลเพิ่มเติม เลือกคุณสมบัติ...

⭐ การปรับปรุงดาว: นำทางอย่างรวดเร็วไปยังสถานที่ใด ๆ  /  แทรกข้อความซ้ำอัตโนมัติ  /  สลับระหว่างหน้าต่างเอกสารได้อย่างราบรื่น  /  11 เครื่องมือการแปลง...

???? ต้องการลองใช้คุณสมบัติเหล่านี้หรือไม่? Kutools for Word มีไฟล์ ทดลองใช้ฟรี 60 วันโดยไม่มีข้อจำกัด! 🚀

ดาวน์โหลดฟรี     อ่านเพิ่มเติม     ซื้อเลย