編集モードになっている文書をメッセージを表示させずに保存する方法は、
Saveメソッドを使用します。
ポイントは、NotesUIDocumentのCloseメソッドは
スクリプトのどの場所に記述しても、一番最後に処理がなされます。
その為、Closeの前に必ずSaveメソッドを記述する必要があります。
＜サンプル＞
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
doc.フィールド名(0) = "XXX"
Call doc.save(True, True)
Call uidoc.Refresh
Call uidoc.save
Call uidoc.close
End Sub
