例: SelectAll method

次のフォームアクションスクリプトは [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