次のスクリプトはデータを含まない Lotus 1-2-3 ワークシートのオブジェクトを現在の文書の [Description] フィールドに新規作成します。Lotus123.Workbook.97 は OLE レジストリ内になければなりません。
Dim workspace as New NotesUIWorkspace
Dim uidoc as NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.GotoField( "Description" )
Call uidoc.CreateObject("Quarterly Reports", "Lotus123.Workbook.97")