'===ポイント=== 'レコードの移動は、MailMerge.DataSource.ActiveRecord の設定により行う ' MailMerge.DataSource.Included プロパティの設定により、差し込みデータに含むかどうか設定できる Sub MakeResultFiles() ' ファィル名に使うキーとなるフィールド うちは学校なので学籍番号 Const KeyField = "学籍番号" Dim FolderName As String FolderName = ThisDocument.Path & "\work\" Dim Last As Long Last = -1 With ThisDocument.MailMerge.DataSource .SetAllIncludedFlags False .ActiveRecord = wdFirstDataSour