主页 / computer / 问题 / 1523869
Accepted
Erel Segal-Halevi
Asked: 2020-02-09 12:51:43 +0800 CST

将docx文件批量转换为pdf

  • 772

我有许多 DOCX 文件（Office 365）需要转换为 PDF。我可以打开它们中的每一个并导出为 PDF，但我正在寻找一种可以在批处理文件中运行的更快的解决方案。几乎可行的一种选择是使用 LibreOffice，如此处所述。它适用于简单的 docx 文件，但对于更复杂的文件（例如带有图像和 rtl 文本），它会打乱文件的布局。有没有办法用 MS Word 做同样的事情？

windows-10 microsoft-word

2 个回答

  1. Best Answer

    如果您安装了 Microsoft Word，则可以使用docx2pdf命令行实用程序在 windows 或 macos 上将 docx 批量转换为 pdf。https://github.com/AlJohri/docx2pdf

    安装：

    pip install docx2pdf

    跑：

    docx2pdf myfolder/

    免责声明：我在努力寻找一个跨平台的解决方案来将 docx 批量转换为 pdf 且格式问题为零之后编写了这个工具。

    • 20

  2. 有

    这个Powershell 脚本，

    免费软件文件转换器，

    还有这个来自winhelponline的 doc2pdf.vbs 脚本的只读修改版本，您也可以将其添加到 Windows SendTo 文件夹中：

    'Convert .doc or .docx to .pdf files via Send To menu
Set fso = CreateObject("Scripting.FileSystemObject")
For i= 0 To WScript.Arguments.Count -1
    docPath = WScript.Arguments(i)
    docPath = fso.GetAbsolutePathName(docPath)
    If LCase(Right(docPath, 4)) = ".doc" Or LCase(Right(docPath, 5)) = ".docx" Then
    Set objWord = CreateObject("Word.Application")
    pdfPath = fso.GetParentFolderName(docPath) & "\" & _
      fso.GetBaseName(docpath) & ".pdf"
    objWord.Visible = False
    Set objDoc = objWord.documents.open(docPath,,True)
        objDoc.saveas pdfPath, 17
        objDoc.Close wdDoNotSaveChanges
        objWord.Quit   
    End If   
Next
    • 5

相关问题