差し込み印刷の印刷結果をセット数分の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形式のファイルを使用しています。