สร้างแมโครส่วนกลางใน Word 2013:
' The Word macro for exporting to PDF (the Word window closes after finishing)
Sub ExportToPDFext()
ChangeFileOpenDirectory ThisDocument.Path
ActiveDocument.ExportAsFixedFormat _
OutputFileName:=Left(ActiveDocument.FullName, InStrRev(ActiveDocument.FullName, ".")) + "pdf", _
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
Application.Quit SaveChanges:=wdDoNotSaveChanges
End Sub
หลังจากนั้นคุณสามารถแปลงเอกสาร Word เป็น PDF ในบรรทัดคำสั่ง:
"C:\Program Files\Microsoft Office\Office15\WINWORD.EXE" /mExportToPDFext /q "your_document_path.docx"
หน้าต่าง Word จะไม่ปรากฏขึ้นเนื่องจากถูกตั้งค่าให้ปิดหลังจากที่แมโครทำงานเสร็จและพารามิเตอร์ / q ปิดใช้งานหน้าต่างสแปลชเมื่อ Word กำลังโหลด
นี่คือรายละเอียดคำแนะนำทางเลือกบน GitHub นอกจากนี้ตัวเลือกเมนูบริบทช่วยให้การแปลงเป็นชุดแม้ไม่มีบรรทัดคำสั่ง มันสามารถเพิ่มลงในรีจิสทรี สำหรับ DOC และ DOCX:
[HKEY_CLASSES_ROOT\Word.Document.8\shell\SavePDFhere]
@="Save PDF here"
[HKEY_CLASSES_ROOT\Word.Document.8\shell\SavePDFhere\command]
@="\"C:\\Program Files\\Microsoft Office\\Office15\\WINWORD.EXE\" /mExportToPDFext /q \"%1\""
[HKEY_CLASSES_ROOT\Word.Document.12\shell\SavePDFhere]
@="Save PDF here"
[HKEY_CLASSES_ROOT\Word.Document.12\shell\SavePDFhere\command]
@="\"C:\\Program Files\\Microsoft Office\\Office15\\WINWORD.EXE\" /mExportToPDFext /q \"%1\""