копирует данные поля XField во вновь созданный документ в поле NewXField
Dim workspace As New NotesUIWorkspace
Dim uidoc, uidoc1 As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim xfield As String
xfield = uidoc.FieldGetText("XField")
Set uidoc1 = workspace.ComposeDocument( "", "", "FPosition" )
Call uidoc1.FieldSetText( "NewXField", xfield)