วิธีการแปลงชุดเอกสาร Word เป็นไฟล์ pdf
ง่ายสำหรับคุณในการแปลงเอกสาร Word เป็นไฟล์ PDF ด้วยฟังก์ชันบันทึกเป็นใน Word แต่ถ้าคุณต้องการแปลงเอกสาร Word ทั้งหมดในโฟลเดอร์เพื่อแยกไฟล์ PDF พร้อมกันคุณจะทำได้อย่างไร? บทความนี้จะแสดงรหัส VBA เพื่อแปลงเอกสาร Word หลายชุดเป็นไฟล์ PDF ใน Word
Batch แปลงเอกสาร Word หลายไฟล์เป็นไฟล์ pdf ด้วย VBA
Batch แปลงเอกสาร Word หลายไฟล์เป็นไฟล์ pdf ด้วย Kutools for Word
Batch แปลงเอกสาร Word หลายไฟล์เป็นไฟล์ pdf ด้วย VBA
รหัส VBA ต่อไปนี้ช่วยให้คุณแปลงเอกสาร Word ทั้งหมดในโฟลเดอร์เป็นไฟล์ pdf ในคราวเดียวได้อย่างรวดเร็ว กรุณาดำเนินการดังนี้
1. ใน Word ให้กดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล
รหัส VBA: Batch แปลงเอกสาร Word หลายไฟล์เป็นไฟล์ pdf ใน Word
Sub ConvertWordsToPdfs()
'Updated by Extendoffice 20181123
Dim xIndex As String
Dim xDlg As FileDialog
Dim xFolder As Variant
Dim xNewName As String
Dim xFileName As String
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show <> -1 Then Exit Sub
xFolder = xDlg.SelectedItems(1) + "\"
xFileName = Dir(xFolder & "*.*", vbNormal)
While xFileName <> ""
If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
xIndex = InStr(xFileName, ".") + 1
xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
Documents.Open FileName:=xFolder & xFileName, _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveDocument.Close
End If
xFileName = Dir()
Wend
End Sub
3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส
4. กล่องโต้ตอบเรียกดูจะปรากฏขึ้นโปรดเลือกโฟลเดอร์ที่มีเอกสาร Word ที่คุณจะแปลงเป็นไฟล์ pdf แล้วคลิกไฟล์ OK ปุ่ม
จากนั้นเอกสาร Word ทั้งหมดในโฟลเดอร์ที่เลือกจะถูกแปลงเป็นไฟล์ pdf แยกกันพร้อมกัน ดูภาพหน้าจอ:
Batch แปลงเอกสาร Word หลายไฟล์เป็นไฟล์ pdf ด้วย Kutools for Word
หากรหัส VBA จัดการได้ยากคุณสามารถลองใช้ไฟล์ แปลงเอกสาร ประโยชน์ของ Kutools สำหรับ Word เพื่อแก้ปัญหา
Kutools สำหรับ Word : ด้วยโปรแกรมเสริม Word ที่มีประโยชน์มากกว่า 100 รายการ ทดลองใช้ฟรีไม่มีข้อจำกัดใน 60 วัน.
1 คลิก Kutools พลัส > เอกสาร / Docx. ดูภาพหน้าจอ:
2 ใน ตัวแปลงรูปแบบเอกสาร หน้าต่างคุณต้องทำดังนี้:
3. จากนั้นกล่องโต้ตอบจะปรากฏขึ้นเพื่อแจ้งให้คุณทราบว่ามีการแปลงเอกสารสำเร็จแล้วให้คลิกที่ไฟล์ OK และปิดปุ่ม ตัวแปลงรูปแบบเอกสาร หน้าต่าง
ตอนนี้เอกสารรูปแบบ. docx ทั้งหมดถูกแปลงเป็นไฟล์ pdf
หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรีโปรดไปที่ ดาวน์โหลดซอฟต์แวร์ฟรี ก่อนแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
Kutools สำหรับ Word - ยกระดับประสบการณ์คำศัพท์ของคุณด้วย Over 100 คุณสมบัติเด่น!
🤖 Kutools ผู้ช่วย AI: แปลงโฉมงานเขียนของคุณด้วย AI - สร้างเนื้อหา / เขียนข้อความใหม่ / สรุปเอกสาร / สอบถามข้อมูล ขึ้นอยู่กับเอกสารทั้งหมดนี้ภายใน Word
📘 ความเชี่ยวชาญด้านเอกสาร: แยกหน้า / ผสานเอกสาร / ส่งออกตัวเลือกในรูปแบบต่างๆ (PDF/TXT/DOC/HTML...) / แบทช์แปลงเป็น PDF / ส่งออกเพจเป็นรูปภาพ / พิมพ์หลายไฟล์พร้อมกัน...
✏ การแก้ไขเนื้อหา: ค้นหาแบทช์และแทนที่ ข้ามหลายไฟล์ / ปรับขนาดรูปภาพทั้งหมด / ย้ายแถวและคอลัมน์ของตาราง / แปลงตารางเป็นข้อความ...
🧹 ทำความสะอาดได้อย่างง่ายดาย: หลบไป พื้นที่พิเศษ / แบ่งส่วน / ส่วนหัวทั้งหมด / กล่องข้อความ / เชื่อมโยงหลายมิติ / หากต้องการดูเครื่องมือถอดเพิ่มเติม โปรดไปที่ของเรา ลบกลุ่ม...
➕ ส่วนแทรกโฆษณา: แทรก ตัวคั่นหลักพัน / กล่องกาเครื่องหมาย / ปุ่มวิทยุ / คิวอาร์โค้ด / บาร์โค้ด / ตารางเส้นทแยงมุม / คำอธิบายสมการ / คำบรรยายภาพ / คำบรรยายตาราง / รูปภาพหลายภาพ / ค้นพบเพิ่มเติมใน แทรกกลุ่ม...
🔍 การเลือกที่แม่นยำ: ระบุ หน้าที่เฉพาะเจาะจง / ตาราง / รูปร่าง / หัวเรื่องย่อหน้า / เสริมการนำทางด้วย ข้อมูลเพิ่มเติม เลือกคุณสมบัติ...
⭐ การปรับปรุงดาว: นำทางอย่างรวดเร็วไปยังสถานที่ใด ๆ / แทรกข้อความซ้ำอัตโนมัติ / สลับระหว่างหน้าต่างเอกสารได้อย่างราบรื่น / 11 เครื่องมือการแปลง...