こんなことをすることは、ないだろうと思いますが、ChatGPTの、凄さを表現するために書いてみます。

Wordで、差し込み印刷するとき、リストのひとつひとつを、PDFでほぞんするマクロです。

ChatGPTに作ってもらいました。

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

'PDFファイル名のベースとなる文字列