Теоретический аспект UserForm - VBA - Ответ 8967796

@ctac1412 · 02.04.2016, 17:39 **[ТС]**

Alex77755, просидел часа 2, так и не придумал, как все же можно выделить и обработать через selection текст из бокса....

П.с. что бы автоматизировать форматирование, можно поставить на выход.

Visual Basic

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Копируемый_текст = TextBox1.Text
    t = Replace(Копируемый_текст, "-", "") ' удаляем -
    t = Replace(t, ".", "") ' удаляем точку
    t = Replace(t, ",", "") ' удаляем запятую
    TextBox1.Text = t
 
End Sub

Добавлено через 13 часов 22 минуты
Alex77755, Не уверен как в будущем это мне аукнется в плане затратности ресурсов, пока решаю так проблему.... ( пытался через open послать в доки docxm, файл рушится... я так понял этим методом можно только тхт и док юзать...а если можно было бы в docm можно было бы там просто на прием написать макрос и не прописывать в форме.) А этим методом можем любые привычные манипуляции производить, включая замену с подстановочными знаками.

Visual Basic

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
SetClipboardText TextBox1.Text
 
Documents.Open FileName:="1234.docm", ConfirmConversions:=False, ReadOnly _
        :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
        :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
        , Format:=wdOpenFormatAuto, XMLTransform:=""
    Selection.TypeText Text:=ClipboardText
    Selection.WholeStory
        Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[!0-9]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.WholeStory
    Selection.Copy
    ActiveWindow.Close 0
    Open "C:\Users\Стас\Desktop\1234.txt" For Output As 1
    s = ClipboardText
    Print #1, s
    
    Close
End Sub

Добавлено через 1 час 4 минуты
заменил exit на AfterUpdate(), и добавил еще две интересные функции.

Visual Basic

Private Sub telefon_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If telefon.Text = "" Then
telefon.Text = "Введите номер телефона"
telefon.ForeColor = &HFF&
End If
End Sub
 
Private Sub telefon_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If telefon.Text = "Введите номер телефона" Then
telefon.Text = ""
telefon.ForeColor = Black
End If
End Sub

Изначально стоит фраза Введите номер телефона красным цветом, когда оператор нажимает в окно фраза удаляется, когда выходит из окна и в окне ничего не не написано, возвращается "Введите номер телефона"

Вернуться к обсуждению:
Теоретический аспект UserForm VBA

Следующий ответ