powershell - Basic Powershell - 将 Word Docx 批量转换为 PDF

Question

我正在尝试使用 PowerShell 将 Word Docx 批量转换为 PDF - 使用此站点上的脚本：http: //blogs.technet.com/b/heyscriptingguy/archive/2013/03/24/weekend-scripter -convert-word-documents-to-pdf-files-with-powershell.aspx

# Acquire a list of DOCX files in a folder
$Files=GET-CHILDITEM "C:\docx2pdf\*.DOCX"
$Word=NEW-OBJECT –COMOBJECT WORD.APPLICATION

Foreach ($File in $Files) {
    # open a Word document, filename from the directory
    $Doc=$Word.Documents.Open($File.fullname)

    # Swap out DOCX with PDF in the Filename
    $Name=($Doc.Fullname).replace("docx","pdf")

    # Save this File as a PDF in Word 2010/2013
    $Doc.saveas([ref] $Name, [ref] 17)  
    $Doc.close()
}

而且我不断收到此错误，无法弄清楚原因：

PS C:\docx2pdf> .\docx2pdf.ps1
Exception calling "SaveAs" with "16" argument(s): "Command failed"
At C:\docx2pdf\docx2pdf.ps1:13 char:13
+     $Doc.saveas <<<< ([ref] $Name, [ref] 17)
    + CategoryInfo          : NotSpecified: (:) [], MethodInvocationException
    + FullyQualifiedErrorId : DotNetMethodException

有任何想法吗？

另外 - 我需要如何更改它以转换 doc（不是 docX）文件，以及使用本地文件（与脚本位置位于同一位置的文件）？

抱歉 - 从未编写过 PowerShell 脚本...

score 67 · Accepted Answer

这适用于 doc 和 docx 文件。

$documents_path = 'c:\doc2pdf'

$word_app = New-Object -ComObject Word.Application

# This filter will find .doc as well as .docx documents
Get-ChildItem -Path $documents_path -Filter *.doc? | ForEach-Object {

    $document = $word_app.Documents.Open($_.FullName)

    $pdf_filename = "$($_.DirectoryName)\$($_.BaseName).pdf"

    $document.SaveAs([ref] $pdf_filename, [ref] 17)

    $document.Close()
}

$word_app.Quit()

score 7 · Accepted Answer

以上答案对我来说都不够用，因为我正在做批量工作，以这种方式转换大约 70,000 个单词的文档。事实证明，重复这样做最终会导致 Word 崩溃，可能是由于内存问题（错误是一些我不知道如何解析的 COMException）。所以，我让它继续进行的技巧是每 100 个文档（任意选择的数字）杀死并重新启动单词。

此外，当它偶尔崩溃时，会产生格式错误的 pdf，每个文件的大小通常为 1-2 kb。因此，当跳过已经生成的 pdf 文件时，我会确保它们的大小至少为 3kb。如果您不想跳过已经生成的 PDF，可以删除该 if 语句。

对不起，如果我的代码看起来不太好，我通常不使用 Windows，这是一次性的 hack。因此，这是生成的代码：

$Files=Get-ChildItem -path '.\path\to\docs' -recurse -include "*.doc*"

$counter = 0
$filesProcessed = 0
$Word = New-Object -ComObject Word.Application

Foreach ($File in $Files) {
    $Name="$(($File.FullName).substring(0, $File.FullName.lastIndexOf("."))).pdf"
    if ((Test-Path $Name) -And (Get-Item $Name).length -gt 3kb) {
        echo "skipping $($Name), already exists"
        continue
    }

    echo "$($filesProcessed): processing $($File.FullName)"
    $Doc = $Word.Documents.Open($File.FullName)
    $Doc.SaveAs($Name, 17)
    $Doc.Close()
    if ($counter -gt 100) {
        $counter = 0
        $Word.Quit()
        [System.Runtime.Interopservices.Marshal]::ReleaseComObject($Word)
        $Word = New-Object -ComObject Word.Application
    }
    $counter = $counter + 1
    $filesProcessed = $filesProcessed + 1
}

score 3 · Accepted Answer

这对我有用（Word 2007）：

$wdFormatPDF = 17
$word = New-Object -ComObject Word.Application
$word.visible = $false

$folderpath = Split-Path -parent $MyInvocation.MyCommand.Path

Get-ChildItem -path $folderpath -recurse -include "*.doc" | % {
    $path =  ($_.fullname).substring(0,($_.FullName).lastindexOf("."))
    $doc = $word.documents.open($_.fullname)
    $doc.saveas($path, $wdFormatPDF) 
    $doc.close()
}

$word.Quit()

score 2 · Accepted Answer

此处发布的解决方案都不适用于 Windows 8.1（顺便说一句。我使用的是 Office 365）。我的 PowerShell 不知何故不喜欢 [ref] 参数（我不知道为什么，我很少使用 PowerShell）。

这是对我有用的解决方案：

$Files=Get-ChildItem 'C:\path\to\files\*.docx'

$Word = New-Object -ComObject Word.Application

Foreach ($File in $Files) {
    $Doc = $Word.Documents.Open($File.FullName)
    $Name=($Doc.FullName).replace('docx', 'pdf')
    $Doc.SaveAs($Name, 17)
    $Doc.Close()
}

score 0 · Accepted Answer

我已经更新了这个以在最新的办公室工作：

# Get invocation path
$curr_path = Split-Path -parent $MyInvocation.MyCommand.Path
# Create a PowerPoint object
$ppt_app = New-Object -ComObject PowerPoint.Application
#$ppt.visible = $false
# Get all objects of type .ppt? in $curr_path and its subfolders
Get-ChildItem -Path $curr_path -Recurse -Filter *.ppt? | ForEach-Object {
    Write-Host "Processing" $_.FullName "..."
    # Open it in PowerPoint
    $document = $ppt_app.Presentations.Open($_.FullName,0,0,0)
    # Create a name for the PDF document; they are stored in the invocation folder!
    # If you want them to be created locally in the folders containing the source PowerPoint file, replace $curr_path with $_.DirectoryName
    $pdf_filename = "$($curr_path)\$($_.BaseName).pdf"
    # Save as PDF -- 17 is the literal value of `wdFormatPDF`
    #$opt= [Microsoft.Office.Interop.PowerPoint.PpSaveAsFileType]::ppSaveAsPDF
    $document.SaveAs($pdf_filename,32)
    # Close PowerPoint file
    $document.Close()
}
# Exit and release the PowerPoint object
$ppt_app.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($ppt_app)

powershell - Basic Powershell - 将 Word Docx 批量转换为 PDF

5 回答 5

Related

Reference