こんにちは。 自動化する方法はあります。 情報が少ないので、この方法でいいのかは不明ですが・・・。 任意の文書を更新ボタン(アクションボタン)で対応する方法 @現データ用と同じフォームをレスポンスフォームとして用意 A更新キーのようなアクションボタンを現情報を表示するフォーム上に用意 B更新キーを実行した際、CopyAllItemsでコピーして、フォーム名を変更してレスポンスフォームを保存 C更新した文書を保存 <ご参考> Set db = session.CurrentDatabase Set uidoc = workspace.CurrentDocument Set doc = uidoc.document Set Newdoc = New NotesDocument( db ) 〜 中略 〜 Call doc.CopyAllItems( Newdoc, True ) Newdoc.Form = "Res" Call Newdoc.Save(True,True) 〜 中略 〜 Call doc.Save(True,True) Call uidoc.Close Call workspace.EditDocument( False ,doc)