Lotus Notes - Cambiar Iniciales por Nombre y Apellidos

Tengo un problema con una b.d.

Resultase ser que al momento de importar los nombres de empleados, se importan pero con sus iniciales (esto viene desde el archivo origen de Excel), mi pregunta es

¿Se pueden cambiar esas iniciales por Nombre y Apellidos? ej. "PLM" cambiar por "Pedro
López Martínez"

Lo anterior se puede lograr desde una vista reemplazando las inciales por Nombre y Apellidos?, de antemano ya se cuales son los nombres de los empleados en relación con las iniciales, pero como se puede hacer de una forma más rápida? , ya que son más de 3000 registros y pues eso de estar buscándolos se llevaría un buen rato, alguna idea? con lotusscript?

De antemano gracias.

Saludos!!!

que valor te regresa el nombre con :

@Name([CN];@UserName)

?

Hugo:

Muchas gracias por contestar a mi duda.

Anexo el código que tengo, pero que no me ha funcionado, éste lo ejecuto con un botón desde una vista.

Adicionalmente, lo que comentaba en mi post anterior es que una vez importada la info desde excel (me la importa tal cual con las iniciales de las personas), pero necesito cambiarlas por los nombres completos.

De antemano gracias por tu ayuda.

Saludos!!!

Sub Initialize

Dim db As NotesDatabase
Dim view As NotesView
Dim col As NotesDocumentCollection
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim dateTime As NotesDateTime

Set dateTime = New NotesDateTime( "26/03/82" )
Set db = session.CurrentDatabase
Set view = db.GetView("Llam1")
anterior = Inputbox("Teclee el nombre de la persona:")
nuevo = Inputbox("Teclee las iniciales deseadas:")
Set col = db.Search({Form="Cobr1" & (Per1 = "}& anterior & {" | Per2 = "} & anterior & {" | Per3 = "} & anterior & {")}, DateTime, 0)
For x=1 To col.Count
Set doc = col.GetNthDocument(x)
If Trim(doc.Per1(0)) = anterior Then
doc.Socio = nuevo
End If
If Trim(doc.Per2(0)) = anterior Then
doc.Socio2 = nuevo
End If
If Trim(doc.Per3(0)) = anterior Then
doc.Socio3 = nuevo
End If
Call doc.Computewithform (True, False)
Call doc.Save(True, False)
Next
Call view.Refresh
Call ws.ViewRefresh
Msgbox("Se hicieron " & Cstr(col.count) & " cambios.")
End Sub