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

วิธีแยกเอกสาร Word และบันทึกเป็นไฟล์ PDF แยกกัน

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

แยกเอกสาร Word และบันทึกเป็นไฟล์ PDF แยกกันด้วย VBA

แยกเอกสาร Word เป็นไฟล์แยกตามหน้า/หัวเรื่อง1/ แตกแล้วบันทึกเป็น PDF


แยกเอกสาร Word และบันทึกเป็นไฟล์ PDF แยกกันด้วย VBA

รหัส VBA สามารถช่วยให้คุณแยกเอกสาร Word ทีละหน้าได้โดยตรงจากนั้นบันทึกเป็นไฟล์ PDF แยกกัน

1 กด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลคัดลอกและวางโค้ดด้านล่างลงในไฟล์ โมดูล หน้าต่าง

VBA: บันทึก Word เป็น PDF แยกกัน

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 กด F5 ในกล่องโต้ตอบเรียกดูเลือกโฟลเดอร์เพื่อวางไฟล์ PDF
doc แยกบันทึก pdf 1

4 คลิก OKจากนั้นป้อนหมายเลขหน้าที่คุณต้องการแยกจุดเริ่มต้นและจุดสิ้นสุด

doc แยกบันทึก pdf 2 doc แยกบันทึก pdf 3

5 คลิก OK. ตอนนี้หน้าต่างๆได้รับการบันทึกเป็นไฟล์ PDF แยกกัน
doc แยกบันทึก pdf 4


แยกเอกสาร Word เป็นไฟล์แยกตามหน้า/หัวเรื่อง1/ แตกแล้วบันทึกเป็น PDF

ถ้าคุณไม่คุ้นเคยกับโค้ด VBA คุณสามารถลองใช้เครื่องมือ add-in – Kutools สำหรับ Wordมัน แยก คุณลักษณะสามารถช่วยคุณแบ่งเอกสาร Word ออกเป็นหน้าตามตัวแบ่งหน้า หมายเลขหน้า หัวเรื่อง 1 ตัวแบ่งส่วน หน้าที่ n ทุกหน้า และหมายเลขหน้าแบบกำหนดเองที่คุณระบุ จากนั้นใช้ ตัวแปลงรูปแบบเอกสาร เพื่อแปลงเอกสาร Word แยกเป็น PDF

Kutools สำหรับ Word, ที่มีมากกว่า 100 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

หลังจากการติดตั้ง Kutools for Word โปรดทำดังนี้:(ดาวน์โหลด Kutools for Word ฟรีทันที!)

1. เปิดใช้งานเอกสาร Word ที่คุณต้องการแปลงเป็นแยก คลิก Kutools พลัส > แยก.
doc บันทึกเป็น pdf 2

2 ใน แยกเอกสาร กล่องโต้ตอบ เลือกกฎการแยกตามที่คุณต้องการในส่วน แยกตาม จากนั้นระบุตำแหน่งบันทึกและคำนำหน้าไฟล์เอกสารแยก คลิก Ok.

ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร แยกตาม ส่วนจะมีการแบ่ง 6 ประเภทสำหรับคุณ สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับการแยกทุกประเภท โปรดไปที่ แนะนำคุณสมบัติ.

ตอนนี้เอกสารแยกได้รับการบันทึกในตำแหน่งที่ระบุ

3. หลังจากแยกเอกสารแล้ว ให้คลิก Kutools พลัส > เอกสาร / Docx.

4 ใน ตัวแปลงรูปแบบเอกสาร โต้ตอบเลือก แปลง Docx เป็น PDF ฟอร์ม ตัวแปลงรูปแบบ รายการดรอปดาวน์ คลิกเครื่องหมายบวกเพื่อเพิ่มไฟล์หรือโฟลเดอร์ที่มีเอกสารที่คุณต้องการแปลงเป็น PDF จากนั้นระบุการตั้งค่าอื่นๆ ตามที่คุณต้องการ (โดยค่าเริ่มต้น ระบบจะบันทึกไฟล์ PDF ในโฟลเดอร์ต้นทาง คุณสามารถเปลี่ยนได้ ). คลิก Ok.

ตอนนี้เอกสาร Word ได้รับการแปลงเป็นไฟล์ PDF แล้ว


เรียกดูแบบแท็บและแก้ไขเอกสาร Word / สมุดงาน Excel หลายรายการเช่น Firefox, Chrome, Internet Explore 10!

คุณอาจคุ้นเคยกับการดูหน้าเว็บหลายหน้าใน Firefox / Chrome / IE และสลับไปมาระหว่างหน้าเว็บเหล่านั้นโดยคลิกที่แท็บที่เกี่ยวข้อง ที่นี่ Office Tab สนับสนุนการประมวลผลที่คล้ายกันซึ่งช่วยให้คุณสามารถเรียกดูเอกสาร Word หรือสมุดงาน Excel หลายรายการในหน้าต่าง Word หรือหน้าต่าง Excel และสลับไปมาระหว่างกันได้อย่างง่ายดายโดยคลิกที่แท็บ
คลิกเพื่อทดลองใช้ Office Tab ฟรี!

เรียกดูเอกสารหลายคำในหน้าต่างเดียวเป็น Firefox

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

 

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

  • การดำเนินการที่ซับซ้อนและซ้ำ ๆ สามารถดำเนินการครั้งเดียวในไม่กี่วินาที
  • แทรกภาพหลาย ๆ โฟลเดอร์ลงในเอกสาร Word พร้อมกัน
  • ผสานและรวมไฟล์ Word หลาย ๆ ไฟล์ในโฟลเดอร์เข้าด้วยกันตามลำดับที่คุณต้องการ
  • แยกเอกสารปัจจุบันออกเป็นเอกสารแยกตามหัวข้อตัวแบ่งส่วนหรือเกณฑ์อื่น ๆ
  • แปลงไฟล์ระหว่าง Doc และ Docx, Docx และ PDF ชุดเครื่องมือสำหรับการแปลงและการเลือกทั่วไปและอื่น ๆ ...

 

จัดเรียงความคิดเห็นโดย
ความคิดเห็น (21)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัส VBA ไม่ทำงาน "ป้อนหมายเลขหน้าขวา เอกสาร Word ยาว 3 หน้า ฉันเพิ่ม 1 และ 3 ในกล่องข้อความและพบข้อผิดพลาด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Nico ฉันได้ลองรหัสอีกครั้ง มันใช้งานได้ในเวอร์ชันของฉัน window 10 64 2016 คุณใช้เวอร์ชันใด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
nicou ควรป้อนหน้าที่คุณต้องการแปลง...เช่น 1 (ในหน้าจอพร้อมท์แรก) จากนั้น ในหน้าจอพร้อมท์ที่ 10 นั่นคือสิ่งที่ฉันทำและโค้ดทำงานอย่างสวยงาม ขอบคุณซันนี่สำหรับการแบ่งปันนี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีตั้งชื่อไฟล์จากข้อความในเอกสารแทนหน้า 1, หน้า 2 ฯลฯ หรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอโทษฉันไม่มีความคิด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ถ้าใครสามารถช่วยเรื่องนี้ได้... ฉันคิดว่าฉันต้องทำแบบเดียวกัน...USE CASE:ฉันมีเอกสาร word ที่มี 100 หน้า แต่ละหน้าเป็นผลมาจากจดหมายเวียน ดังนั้นทุกหน้าจึงเหมือนกันหมด ยกเว้นบางคำ ด้านบนสุดของแต่ละหน้าเขียนว่า "Dear " ที่ไหน จะถูกแทนที่ด้วยชื่อที่แตกต่างกันในแต่ละหน้าเช่น:- Dear Becky- Dear Nico- Dear Sunny- Dear jgall7804
ปัจจุบันรหัสนี้ส่งออกไฟล์เป็น:
- Page_1.pdf- Page_2.pdf- Page_3.pdf
ฉันรู้ว่าสามารถเปลี่ยนบรรทัดที่ 16 โดยที่ "\Page_" เป็น "\Foo_"... ดังนั้นผลลัพธ์จะเป็น
- Foo_1.pdf- Foo_2.pdf
แต่ฉันขอ (และ jgall7804 และ Ines และคนอื่น ๆ ) ... ถ้าคนที่มีทักษะ VBA ที่ดีกว่า/ฉลาดกว่าสามารถเขียนโค้ดที่จะส่งออกเป็น:- becky.pdf- nico.pdf- sunnny.pdf- jgall7804 ไฟล์ PDF
นั่นคือ ค้นหาคำที่ 2 (หรือคำที่ 1 หรือคำที่ 10) ในแต่ละหน้า แล้วใช้คำนั้นเป็นชื่อไฟล์
ใครมีความคิดใด ๆ ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณสามารถทำได้โดยใช้ฟังก์ชัน REN หากคุณเปิด CMD ในโฟลเดอร์ที่มีเอกสารที่บันทึกไว้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
OMG คุณช่วยชีวิตฉันไว้ ฉันจำเป็นต้องรวมตัวอักษรในคำเสมอแล้วบันทึกแต่ละรายการเป็น PDF จดหมาย 40 ฉบับสุดท้ายของฉันเร็วมาก!!! :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
แทนที่จะบันทึกแต่ละหน้าเป็นเอกสารแยกกัน ฉันจะรับโค้ดเพื่อบันทึกทุก 2 หรือ 3 หน้าเป็นเอกสารแยกต่างหากได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่พบรหัสเพื่อจัดการงานของคุณในขณะนี้ ลองใช้ Kutools for Word ใช้งานได้ฟรีภายใน 60 วัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โปรดอธิบาย: (การเปลี่ยนชื่อ doc) คุณสามารถทำได้โดยใช้ฟังก์ชัน REN หากคุณเปิด CMD ในโฟลเดอร์ที่มีเอกสารที่บันทึกไว้ - และเอกสาร 2 หน้าเป็น pdf เดียว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันสามารถแยกเอกสารได้ ต้องการคำแนะนำหากต้องการบันทึกเอกสารด้วยชื่อบุคคล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะบันทึกไฟล์ ไม่ เป็นหน้า 1 หรือหน้า 2 แต่มีชื่อตามเนื้อหาของหน้า?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี เมื่อฉันคลิกตกลง หน้าจอจะหายไปแต่ไม่มีอะไรถูกบันทึกไว้ ฉันต้องเปิดใช้งานการตั้งค่าอื่นหรือไม่
นอกจากนี้ การบันทึกไปที่โฟลเดอร์ในเครื่อง One Drive ของฉันด้วย หากนั่นอาจเป็นปัญหาหรือไม่ ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เคล็ดลับที่เป็นประโยชน์และใช้งานง่ายมาก ช่วยฉันประหยัดเวลาได้มาก ขอบคุณมาก.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,
เป็นไปได้ที่ de changer le module สำหรับ Fractionner le fichier word en PDF toutes les 24 หน้า ?

ขอบคุณสำหรับความช่วยเหลือของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี TEILLET คุณสามารถใช้ Kutools for Word ได้ แยกเอกสาร และเลือกทุก n หน้าใน แยกตาม ส่วนจากนั้นพิมพ์ 24 ลงในกล่องข้อความทุกหน้า n ระบุการตั้งค่าอื่น ๆ จากนั้นคลิกตกลงทุก ๆ 24 หน้าจะถูกแยกเป็นหนึ่ง เอกสารเดียว จากนั้นใช้ คุณควรลองใช้ฟีเจอร์ Doc/Docx ของ Kutools สำหรับ Excel แล้วเลือกแปลง Docx เป็น PDF จากส่วน Format Convert แล้วเลือกตำแหน่งที่จะบันทึก คลิก Ok ตอนนี้ทุก 24 หน้าได้รับการบันทึกเป็น PDF แล้ว
เราได้อัปเกรดคุณลักษณะใน Kutools for Word แล้ว แต่บทความนี้ยังไม่มีการอัปเดต ดังนั้นภาพหน้าจอจึงเก่า เราจะอัปเดตเนื้อหาเร็ว ๆ นี้คุณสามารถทำตามขั้นตอนเพื่อให้บรรลุ


Kutools for Word ใช้งานได้ฟรีใน 60 วัน คุณอาจพบเครื่องมือที่มีประโยชน์มากกว่า ดาวน์โหลดฟรี
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

รหัสนี้แยกจดหมายเวียนออกเป็น PDF แต่ละรายการ แต่ฉันต้องแบ่ง 2 หน้าแรกเป็นเอกสารเดียว หมายความว่าถ้ามี 12 หน้า ฉันต้องการเอกสาร PDF 6 ฉบับ ชุด 2 เป็นไฟล์ PDF เดียว ตอนนี้รหัสนี้แบ่งออกเป็น 12 ไฟล์ กรุณาแนะนำสิ่งที่ฉันควรเปลี่ยนในรหัส
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี SAROJ ฉันขอแนะนำให้ใช้เครื่องมือใน Kutools for Word ขั้นตอนเหมือนกับคำตอบของฉันสำหรับ เติลเล็ท
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
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
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ลอง vba นี้
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

คุณจะเปลี่ยนชื่อไฟล์ pdf ทีละไฟล์ในกล่องโต้ตอบป๊อปอัปในขณะที่ใช้ vba
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ