差し込み印刷の印刷結果をセット数分のPDFにしたい

質問

MS-Wordで差し込み印刷をする際に、例えば4ページで1セットとして、100ページでは25セットの連続印刷となります。
この際に、25個のPDFファイルとして出力する方法はありますか。
普通に差し込み印刷をすると、この例では100ページの1ファイルができてしまいます。

何をしたいかといいますと、25人の人に、各1ページ目に各自の名前の入った、4ページものの印刷物を、ステープルで留めて25部の印刷配布をしたいのですが、この差し込み印刷のWordからの印刷出力を4ページ毎にステープル留めすることが自社のプリンタ(Ricoh IPSIO)
との組み合わせでは難しいことがわかり、最初から25個のPDFにするしかないと思っています。

回答No.3

heisukewada

No.2の回答を、リストの数だけ処理をするマクロを、ChatGPTに作ってもらいました。

Sub CreatePDFs()
'差し込み文書のリストの数
Dim numDocuments As Integer
numDocuments = ActiveDocument.MailMerge.DataSource.RecordCount

'PDFファイル名のベースとなる文字列
Dim baseFileName As String
baseFileName = "Document_"

'PDFファイルを保存するフォルダー
Dim saveFolder As String
saveFolder = "C:\Users\UserName\Documents\PDFs\"

'PDFファイル名のカウンター
Dim counter As Integer

'PDFファイルを作成する
For counter = 1 To numDocuments
'PDFファイル名を作成する
Dim pdfFileName As String
pdfFileName = saveFolder & baseFileName & counter & ".pdf"

'PDFファイルを作成する
ActiveDocument.MailMerge.DataSource.ActiveRecord = counter
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
pdfFileName, ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, _
Range:=wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False
Next counter
End Sub

保存フォルダは、変更が必要かと思います。
リストは、mdb形式のファイルを使用しています。

回答No.2

heisukewada

「差し込み文書」のタブで
”結果のプレビュー”ボタンをクリックして、差し込み文書がうまく入力されていることを確認します。
その右側の”完了と差し込み∨”を、クリックしてメニューを開いて
”文書の印刷”をクリックします
「プリンターに差し込み」のダイアログが開くので
”最初のレコード”の、入力窓に印刷したい差し込み書の数字を入力します。
”最後のレコード”も、同じ数字を入力して
「OK」ボタンをクリックします。
「印刷」のダイアログが開いたら、「プリンター名」の入力枠の右の”∨”を、クリックして
”Microsoft Print to PDF”を、選択します。
「印刷範囲」は、”すべて”のままにします。
「OK」ボタンをクリックすると
「印刷結果を名前をつけて保存」のダイヤログが開くので、
保存するフォルダを指定して、名前をつけます。
文書の2番めなら　〇〇2.pdf 　みたいな感じで数字を付けておけばわかりやすいかと思います。

回答No.1

imogasi

この質問はリコーのIPSIOというプリンターの機能を使いたいための質問ですか？
その点をはっきり質問に書くべきだと思う。
上手くこのプリンターを使えると、４枚ごとにホッチキス止めのような機能（ステープルでとじて印刷する）が使えるのか？
この機種は高等（高価）なプリンターで、どの事業所にもあって、誰でも知っている常識ではないでしょう。
この質問はリコーのこのプリンターの相談窓口にでも聞くべきだと思うがどうか。
高価なプリンターを備えられる会社だから、また会社のシステム部問もしっかりしていると思うのでそちらに聞いたらどうか？
高価な機種で、相談窓口の体制もしかりしているのでは。
一方こちらは、初心者向けの質問が多く、特殊な分野の質問には適さないと思う。
ーー
（Ａ）１人分配布４ページ＝用紙４枚として、１人分４枚ごとに、ソフト的に、印刷終了が出るのと、比べて
（Ｂ）５人分なら５ファイル20ページ分続けて印刷して終了するのと、プリンターの動作が、用紙をバインドするという点でちがうのか？
そうは思えないが。
ーー
ほんとにそうなのか、手動で１人分４ページごとに別ファイルで印刷して確かめたらどうか。
ーー
ワードの差し込み印刷は「５人分なら５ファイル20ページ分続けて印刷して終了する」しかないと思う。
＝＝
ワードの差し込み印刷で出来なくても、ＶＢＡで１人分の４ページ文書を一度Ｐｒｉｎｔｏｕｔし、　　名前の部分を次の人に変えて、次の人分をプリントする（以下１人ずつプログラムで繰り返す）ことは出来ると思う。
＝＝
また、ワードを使っていながら、PDF保存・印刷？に拘っている理由があるのか？
今ではワードでもPDFで保存は出来るが、理由があるのかな。