microsoft.public.word.vba.general

On 27 =A7=DE=A7=D1=A7=E2, 16:47, Helmut Weber wrote:
> Hi Anton,
>
> like that:
>
> Sub Test567()
> Dim sText As String
> Dim sResult1 As String
> Dim sResult2 As String
> Dim sArray() As String
> sText =3D "Nabokov Vladimirovich Vladimir"
> ' or the text from your textbox
> sArray =3D Split(sText)
> sResult1 =3D sArray(0) & " "
> sResult1 =3D sResult1 & Left(sArray(1), 1) & ". "
> sResult1 =3D sResult1 & Left(sArray(2), 1) & "."
> sResult2 =3D sArray(2) & " "
> sResult2 =3D sResult2 & sArray(1)
> MsgBox sResult1
> MsgBox sResult2
> End Sub
>
> --
>
> Greetings from Bavaria, Germany
>
> Helmut Weber, MVP WordVBA
>
> Vista Small Business, Office XP

Thank you very much!
Der Vielen Dank f=A8=B9r die Hilfe!
P.S. I was a little wrong: first name is a Forename (e.g. Vladimir),
second name is a Patronimic (e.g. Vladimirovich), and third name is a
Last name or Surname (e.g. Nabokov). Though yours codes is very helped
for me.