返答ありがとうございます。 EditDocumentでやってみたんですが、できません。なんででしょうか？参考までにスクリプトを載せてみます。 Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Set uidoc = ws.CurrentDocument Dim view As NotesView Dim doc As NotesDocument Dim name1 As String Dim date1 As String Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase name1 = uidoc.FieldGetText("name") date1 = uidoc.FieldGetText("date") Call uidoc.FieldSetText("khozon","1") Set uidoc = ws.ComposeDocument("","","hurikyuu") Call uidoc.FieldSetText("hname1",name1) Call uidoc.FieldSetText("hday",date1) Call uidoc.save Call uidoc.close ****************************** この上の部分まではうまく動きます。 Call uidoc.EditDocument( True ) Call uidoc.save Call uidoc.close End Sub 最初の文書は「kinmu」フォームを使用してます。新しく開く文書には「hurikyuu」フォームを使用しています。 EditDocumentの使い方がいまいちよくわかりません。 上記のような使い方ではきっと間違っているんですよね？ もしわかりましたら教えて下さい。 お願いします。