Иван
Танюша
вот код:
Sub ppp()
sss = "Смирнов Иван Петрович"
probel = 1
pos = 1
For ii = 1 To Len(sss)
If Mid(sss, ii, 1) = " " Then
If probel = 1 Then
word3 = Mid(sss, pos, ii - 1)
probel = 2
pos = ii + 1
ElseIf probel = 2 Then
word1 = Mid(sss, pos, 1) + ". "
word2 = Mid(sss, ii + 1, 1) + ". "
End If
Else
End If
Next ii
sss2 = word1 + word2 + word3
MsgBox (sss2)
End Sub
вот результат:
Похожие вопросы