☰

Windows 7 批处理命令行将 word 2013 .docx 文件另存为 .pdf 文件

tag-icon • tag-icon command-line pdf batch batch-file microsoft-word-2013
Windows 7 批处理命令行将 word 2013 .docx 文件另存为 .pdf 文件

我希望有最快的方式导出我的报告.docx文件到.pdf每当我有新的、更新的版本时，我就将其分发给其他人。

我正在寻找一种命令行方法，可以自动执行迄今为止我必须使用鼠标手动执行的以下步骤：

File -> Save as -> Browse for location

批处理文件的命令选项有哪些？

答案1

在 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\""

答案2

对于可以使用的批量转换简单命令行工具，docx2pdf：https://github.com/AlJohri/docx2pdf/

安装：

pip install docx2pdf

跑步：

docx2pdf myFolderOfWordDocs

免责声明：我是该工具的作者。

答案3

以下是解决方案奥列克西·科夫通适应当前的Office 16（Office 360​​）。

在 Word 宏中我必须更改ThisDocument.Path为ActiveDocument.Path。

' The Word macro for exporting to PDF (the Word window closes after finishing)
Sub ExportToPDFext()
    ChangeFileOpenDirectory ActiveDocument.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

对于注册表，Office 16 使用略有不同的路径：

Windows Registry Editor Version 5.00

[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\\root\\Office16\\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\\root\\Office16\\WINWORD.EXE\" /mExportToPDFext /q \"%1\""

相关内容