RE:Extraer las primeras letras de una cadena
Muy buenas,
creo que lo mejor sería hacer una función específica para extraer esos datos, sobre todo porque supongo que habrá nombres compuestos, con lo cual habría que sacar 4 iniciales.
En el txt pones =iniciales(txt_origen)
Luego escribes esta función:
Function iniciales(origen)
Dim longitud As Integer, i As Integer
iniciales = Left(origen, 1)
i = 1
longitud = Len(origen)
For i = 1 To longitud
If Mid(origen, i, 1) = " " Then
iniciales = iniciales & Mid(origen, i + 1, 1)
End If
Next
End Function
En cualqueir caso, por si te sirve, te paso esta expresión para poner en ese txt:
=Izq(Formulario!Nombre;1) & Medio(Formulario!Nombre;EnCad(1;Formulario!Nombre;" ")+1;1) & Medio(Formulario!Nombre;EnCad(EnCad(1;Formulario!Nombre;" ")+1;Formulario!Nombre;" ")+1;1)
Espero que te sirva.
Un saludo.