廉さん、NAGさんありがとうございます。このようにスクリプトを書き変えました。 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 ってまだsaveメソッドを使用しているのですが大丈夫でしょうか? またDim doc As Notesdocument構文は必要な気がするんです。この件についても教えてください。