Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument uidoc.EditMode = True Call uidoc.GoToField( "fieldname" ) Call uidoc.SelectAll Call uidoc.Copy uidoc.EditMode = False