Точки в ФИО

[Сеanonselen-Ткачук]

Помогите исправить код vba.
В поле, куда вводится ФИО есть код, который начинает слова с заглавной буквы. ФИО вводится в формате "Иванов И.П."

Private Sub TextBox4_Change()
TextBox4.Text = Application.WorksheetFunction.Proper(TextBox4.Text)
End Sub

Нужно, чтобы после имени и отчества (т.е.после второй и третьей заглавных букв) ставились точки (например, в "Иванов И.П." - после "И" и "П").

[Aleksandr H.]

зачем точки если

Сообщение от Сеanonselen-Ткачук

ФИО вводится в формате "Иванов И.П."

?

[Сеanonselen-Ткачук]

Потому что те, кто вводит данные - не ставят их, а раньше ещё и писали не учитывая регистр. Часто получалось "иВАНОВ ИП". Если с заглавными буквами проблема отпала, то с точками осталась.

[сфинкс]

сделать макрос массовой замены:

пробел и 2 большие буквы
заменять на как нужно с точками

оформив макрос про 2 большие буквы
через циклы с кодами больших букв

и примерный макрос: в моей теме

[Aleksandr H.]

Так ето обработку "на лету" надо делать, по мере ввода текста пользователем?

И что, после прогона вашего кода с п.1 вместо "иВАНОВ ИП" получаете "Иванов ИП"?

Сообщение от Сеanonselen-Ткачук

Часто получалось "иВАНОВ ИП"

Могу предложить постобработку введенного текста

Function ПРОСТАВЬТОЧКИ(sText As String) As String
    Dim ch As String
    Dim i As Integer
    Dim sResult As String
    Dim iUpperCount As Integer
    sText = Application.WorksheetFunction.Proper(sText) & " "
    sResult = vbNewLine
    iUpperCount = 0
    For i = 1 To Len(sText) - 1
        ch = Mid(sText, i, 1)
        sResult = sResult & ch
        If LCase(ch) <> UCase(ch) Then
            If ch = UCase(ch) Then iUpperCount = iUpperCount + 1
            If ch = UCase(ch) And (iUpperCount = 2 Or iUpperCount = 3) Then
                If Mid(sText, i + 1, 1) <> "." Then sResult = sResult & "."
            End If
        End If
    Next i
    ПРОСТАВЬТОЧКИ = sResult
End Function

[Сеanonselen-Ткачук]

Сообщение от Aleksandr H.

Function ПРОСТАВЬТОЧКИ(sText As String) As String
Dim ch As String
Dim i As Integer
Dim sResult As String
Dim iUpperCount As Integer
sText = Application.WorksheetFunction.Prope r(sText) & " "
sResult = vbNewLine
iUpperCount = 0
For i = 1 To Len(sText) - 1
ch = Mid(sText, i, 1)
sResult = sResult & ch
If LCase(ch) <> UCase(ch) Then
If ch = UCase(ch) Then iUpperCount = iUpperCount + 1
If ch = UCase(ch) And (iUpperCount = 2 Or iUpperCount = 3) Then
If Mid(sText, i + 1, 1) <> "." Then sResult = sResult & "."
End If
End If
Next i
ПРОСТАВЬТОЧКИ = sResult
End Function

Да, я хотел, чтобы при вводе ФИО в Textbox формы и нажатии на кнопку ввода, данные в таблицу вносились с точками после имени и отчества. Сейчас ФИО вводится в нужном регистре и все мне нравится, хотелось бы довести до идеала Я не знаю как это сделать. Может нужно как-то вставлять эти точки с конца в 1 позиции, потом идет буква отчества, потом опять точка (получается 3-я позиция), потом буква имени.