次のスクリプトは現在の文書を保存します。このメソッドを使用して保存するには、文書が編集モードになっていなければなりません。
Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Call uidoc.Save