WORDファイル(docx)を一括PDF変換するPowerShellスクリプト

AzureのCDP(Cloud Design Pattern)がこちらでWORD形式で提供されていました。後でタブレット端末で見たかったのでPDF変換しようと思ったのですが、３５ファイルもあったので、PDFに一括変換するためのスクリプト作りました。

コード

まずコードはこちらです。ps1の拡張子でテキスト保存しておいてください。

$word = NEW-OBJECT -COMOBJECT WORD.APPLICATION

$files = Get-ChildItem | Where-Object{$_.Name -match "docx$"}
foreach($file in $files)
{   
    try 
   {
        $doc = $word.Documents.OpenNoRepairDialog($file.FullName)
        $doc.SaveAs([ref] $file.FullName.Replace(".docx",".pdf"),[ref] 17)
        $doc.Close()
        Write-Host "$($file.FullName)をPDF変換しました"        
    }
    catch
    {
        Write-Host "[ERROR]$($file.FullName)のPDF変換に失敗しました"
    }
}
$word.Quit()