Word→PDFの繰り返しを自動化して楽にする

以前にWordをPDFにするExcelVBAのコードをご紹介しましたが、その時のコードはWordファイルの全ページをPDFにするものでした。

今回は同僚から「300ページくらいあるWordの一つのファイルを3-4ページ位ごとに分割してPDFにするのに何か楽にする方法がないか」と相談があり、負担を軽くするためのコードをk考えてみました。

Wordファイルを分割してPDFにする手順

今回のツールもExcelVBAを使用して作成することにしました。
まず対象となるWordファイルを開いて、指定したページごとに区切ってPDF化していくのを繰り返すフローを想定しています。

全ページをPDF化してそこからPDFファイルを分割する方法も考えましたが、PDFを分割するソフトが必要なのと、VBAでの完全自動化が難しそうだったのでやめました。
（他のプログラムだと簡単にできるのかもしれませんが。）

作成したExcelワークシート

今回作成したツールを使用するために必要な情報は下記のようにワークシートに記載するようにしています。

①対象フォルダ名・対象ファイル名を取得し、②変更後のPDFファイル名を記入、③印刷の開始位置、終了位置を必要な行だけ記入して、④PDF出力すると元ファイルと同じフォルダに作成したPDFファイルが格納されるフローとなります。

作成したExcelVBAコード

1.対象ファイルの取得（①）

対象ファイルをパス含めて手入力しても良いのですが、手間なのでファイルを選択すると自動で記入されるようにしてみました。
下記のコードを実行すると、選択したファイルについて、A2セルにフォルダ名・A4セルにファイル名が入ります。

2.連続PDF化の実行（④）

連続PDF化のコードは下記の通りです。

実行前に②出力するファイル名を指定することと、③PDF化対象のページを指定しておく必要があります。

「ExportAsFixedFormat」の引数「Range」「From」「To」を指定することで印刷（PDF化）範囲を設定します。
設定内容は下記の通りです。