Dim session As New NotesSession
Dim doccol As NotesDocumentCollection
Dim doc As NotesDocument
Dim eval As variant
Set doccol =session.Currentdatabase.Unprocesseddocuments
If doccol.Count =0 Then
MsgBox "please mark docs" ,0, "please mark docs"
Exit sub
End If
Set doc = doccol.Getfirstdocument()
Do Until doc Is Nothing
eval = Evaluate({@Replacesubstring(Field_1;"í":"ó":"é";"i":"o":"e")}, doc)
Call doc.Replaceitemvalue("Field_1", eval)
Call doc.Save(true,false, true)
Set doc = doccol.Getnextdocument(doc)
Loop
1 回答
通过字段的输入验证,当用户使用其中一个字符时,您可以使用@Fomular发布失败 . 使用这样的东西
如果您想更改exsitings doc的字符,可以使用LS代理在视图中更改已标记文档的字符 .
要更改视图列中的字符,请执行