LOTUSSCRIPT /COM/OLE のクラス

例:SelectAll メソッド
次のフォームアクションスクリプトは [FirstDraft] フィールドの内容をコピーして [Revision] フィールドに貼り付けます。

Sub Click(Source As Button)
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Set uidoc = workspace.CurrentDocument
 Call uidoc.GotoField( "FirstDraft" )
 Call uidoc.SelectAll
 Call uidoc.Copy
 Call uidoc.GotoField( "Revision" )
 Call uidoc.Paste
End Sub

関連項目