Wordの差し込み印刷で「個々のドキュメントの編集」を選択すると新規文書が作成されますが、複数のレコードの場合も一つの文書ファイルに保存されます。 「1つの文書に保存され、文書の各コピーは改ページで区切られます。」 つまりレコード毎に別のファイルにすることができません。 そこで別のファイルに連続して保存するマクロを考えました。 次の通りです。 Sub 連続個別保存() recnumfirst = InputBox("最初のレコード番号", "最初のレコード番号") If recnumfirst = "" Then Exit Sub recnumlast = InputBox("最後のレコード番号", "最後のレコード番号") If recnumlast = "" Then Exit Sub For num = recnumfirst To recnumlast Call 個別保存(num)