【図解あり】複数のWordファイルを一括でpdf化する方法 - Chat-GPTを使った簡単プログラミング

この記事では、フォルダにあるワードファイルすべてを一括でPDFにする方法を紹介します。
この記事を読めば、ファイルを開いて変換する手間が今後一切なくなります。

こんな方におすすめ

wordファイルのpdf化、めんどくさすぎる!!という方
作業時間を短縮したい方

この記事ではPS1ファイルを使用しますが、コードを記載しますので、それをコピーして張り付けるだけで簡単に作業が出来ます。

機能紹介
ps1ファイルの作り方・使い方
コード紹介
使い方

機能紹介

例:フォルダ内のWordファイルをすべてpdf化したい。

紹介する手法を使えば、一括でフォルダにあるWordファイルをPDF化しフォルダに纏めることが出来ます。

さっそく作り方を説明します。

ps1ファイルの作り方・使い方

ps1ファイルの作り方は、この記事を参照ください。
図解付きでps1ファイルの作り方と使い方を紹介しています。

コード紹介

今回使用したファイルの中身は下記です。

# Wordアプリケーションを開始
$Word = New-Object -ComObject Word.Application
# Wordウィンドウを表示しないようにする
$Word.Visible = $false  

# 現在のフォルダを指定
$path = get-location
$ext = ".pdf"

# 出力先のフォルダを指定
$outputFolder = ".\pdf化"
# フォルダが存在しない場合は作成
if (-not (Test-Path $outputFolder)) {
    New-Item -ItemType Directory -Force -Path $outputFolder
}

# フォルダ内のWordファイルを取得
$Files = Get-ChildItem -Path $path -Filter *.docx
$WordFiles = $Files.FullName

foreach ($WordFile in $WordFiles){
    
    # Wordファイルを開く
    $doc  = $word.Documents.Open($WordFile)

    #変換対象ファイルをpdfとしてエクスポート
    $doc.ExportAsFixedFormat($WordFile + ".pdf", 17)

    #ファイル名に".docx"が残ってしまうのでリネーム
    $pdffile =  $WordFile + $ext
    Get-ChildItem $pdffile | Foreach-Object {$newname = $_.Name -Replace ".docx",""}
    
    #Move-Itemで移動
    Move-Item $pdffile -Destination "$path\pdf化\$($newname)" -Force
    
}

# Wordアプリケーションを終了
$word.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Word) | Out-Null
[GC]::Collect() 
Write-Host "PDF変換が完了しました。"

この上のコードをコピーして、テキストに張り付けてps1ファイルにしてください。
それだけでファイルが完成します。