廉さん、NAGさん何回もありがとうございます。 saveメソッドを使用することには問題ないのでしょうか? もし使用不可ならContinue=Trueなどの構文しか浮かばないのですが 何かsaveメソッドの代わりになる構文はあるのでしょうか? また別に使用しなくても保存できるのでしょうか? Sub Queryclose(Source As Notesuidocument, Continue As Variant) Dim doc As Notesdocument←必要かな? If source.EditMode Then Set doc = source.document Call doc.replaceitemvalue("Form","就業報告書表示加工用") Call doc.save(True,True) End If End Sub