Notes

Option Explicit On
privet Sub ready_click()
Dim stroka As String
Public f As String
Public imya As String
Public o As String
Dim kolvobackspace As String
Dim symb As String
j = 1
stroka = txt_fio.Text
flag = False
kolvobackspace = 0

While j <> Len(stroka) And kolvobackspace <> 3
symb = mid(stroka, j, 1)
If asc(symb) = 12 Then
kolvobackspace = kolvobackspace + 1
End If
If kolvobackspace = 0 And asc(symb) <> 12 Then
f = f + symb
End If
If kolvobackspace = 1 And asc(symb) <> 12 Then
o = o + symb
End If
If kolvobackspace = 2 And asc(symb) <> 12 Then
imya = imya + symb
End If
j = j + 1
End While
End Sub
'получаем три переменные f-фамилия,o-отчество,i-имя
'их прогоняем через txt_name в основном документе
'- это поднимает реестр первой буквы и буквы после тире, проверяет, чтоб ток русские буквы были
'т.к. все Public Function функции хранятся в modules
Public Function txt_name (txt_text As String) As String
Dim i As Integer
Dim letter As Integer
Dim letter2 As String
Dim letter3 As String
Dim ucsword As String
Dim bool_Flag As Boolean
Dim miss
i = 1
If Len(txt_text) = 0 Then GoTo miss
bool_Flag = True
While i <> Len(txt_text) And bool_Flag = True
letter = Asc(Mid(txt_text, i, 1))
If letter >= 192 And letter <= 255 Or letter = 32 Or letter = 45 _
Then i = i + 1 _
Else bool_Flag = False And
MsgBox("вы использовали не правельные символы")
End While
i = 1
While i <> Len(txt_text) + 1
letter3 = Mid(txt_text, i - 1, 1))
letter2 = Mid(txt_text, i, 1)
If asc(letter3) = asc("-") Then letter2 = UCase(letter2)
If i = 1 Then letter2 = UCase(letter2)
i = i + 1
ucsword = ucsword + letter2
End While
miss:
If bool_Flag = True _
Then txt_name = ucsword _
Else txt_name = ("")
End Function
'после всех проверок по cmd_готово печатаешь каждую переменную сновой строки, тоесть
privet Sub ready_click()
Public f As String
Public imya As String
Public o As String
Selection.Typetext(f)
Selection.TypeParagraph
Selection.Typetext(imya)
Selection.TypeParagraph
Selection.Typetext(o)
Selection.TypeParagraph
End Sub