けんさん、早速の回答ありがとうございます。 エージェントＡを＠コマンド…に変更したところ エラーメッセージの問題は解消されましたが、今度は 文書を複数選択した際のメッセージが表示されなく なってしまいました。 ＜エージェントＡ＞ Set doccol = db.UnprocessedDocuments If doccol.count <> 1 Then If doccol.count = 0 Then 「AAA文書を選択してください」のMessage Exit Sub Else 「1文書のみ選択してください」のMessage Exit Sub End If End If デバッグを行ったところＡの処理でUnprocessedDocumentsを 使用し、選択文書を取得した際に、2つ以上の文書が選択されて いる時のdoccol.countが0となっていました。 実行する文書が"選択文書"以外の時はUnprocessedDocumentsで 2つ以上の文書は取得出来ないのでしょうか？ 宜しくお願いします。