当域中遇见回车

Sub Exiting(Source As Field)
 On Error Goto errorhandle
 Dim w As NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Dim doc As NotesDocument
 
 Set w = New NotesUIWorkspace   
 Set uidoc=w.CurrentDocument
 Set doc = uidoc.Document
 
 doc.temp = Evaluate( |@Contains(rmk;@newline)|,doc)
 
 If doc.temp(0) = "1" Then
  Msgbox "备注里有回车,请注意!!"
  Call uidoc.GotoField( "rmk" )
 End If
 
 Exit Sub
ErrorHandle:
 Error Err,Error &{
//}&Getthreadinfo(1) & {:} & Erl
End Sub